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Copyright (c) 1997 



Appendix I 



/* Copyright (c) 1991-1995 Duane DeSieno 

/ieie*ieie**ie**'k*ie-k*ieie***ic1t***ie***-k*rkicie* END TRAIN . C 

void FindVariables ( ) 

{ 

short- X, n, i, k; 

long nin; 

long NumPasses; 

struct ddnet FAR *pnet; 

float HHUGE *TrnData; 

FILE *fLog; 

FILE *fp; 

FILE *fEnum; 

/* load the structures */ 

dd_get_struct (NetNum, &pnet) ; 

/* load the root network parameters */ 

sprintf (ParFileName, "%s. par", RootName) ; 

dd_read_parms (NetNum, ParFileName) ; 

sprintf (ParFileName, "%s . vsp" , RootName) ; 

sprintf (TrnFileName, "%s.trn", RootName); 

sprintf (LogFileName, %s.vsl", RootName); 

/* read the partameters for variable selection from .vsp file */ 
fp = fopen (ParFileName , "r" ) ; 
if (fp == NULL) { 

printf ("could not open variable selection parameters file! 

\n") 

return; 

} 

f Log = fopen { LogFi leName , " a " ) ; 
/* setup initial list */ 

for{x=0; x<MaxVars; x++) ImpVar [x] = EXCLUDE; 
nAvailVa.rs = 0; 

/* nPartition =5; */ 
fgets (str, 256, fp) ; 
nPartition = (short) atoi (str) ; 

fprintf (fLog, "nPartitions = %d\n" , nPartition); 
printf ("nPartitions = %d\n" , nPartition) ; 

/* nConsensus = 10; */ 

fgets (str, 256, fp) ; 

nConsensus = (short ) atoi (str) ; 

f -printf (fLog, "nConsensus = %d\n" , nConsensus); 
printf ("nConsensus = %d\n" , nConsensus) ; 

/* nTop = 10; */ 

fgets (str, 256, fp) ; 

nTop = (short) atoi (str) ; 

fprintf (fLog, "nTop = %d\n",nTop); 

printf ("nTop = %d\n",nTop); 

/* pnet->TrainSize = 510; */ 
fgets(str, 256, fp) ; 
pnet->TrainSize = atoi (str) ; 

fprintf (fLog, "TrainSize = %ld\n" , pnet- >TrainSize) ; 




24727-801F 



printf ("TrainSize = $ld\n" , pnet->TrainSize) ; 

/* pnet->Sigma[0] = (REAL) 500; */ 
fgets(str, 256, fp) ; 

pnet ->Sigma [0] = (REAL) atoi (str) ; 

fprintf (fLog, "report every %d passes\n" , (int ) pnet->Sigma [0] ) ; 
printf ("report every %d passes \n", (int) pnet- >Sigma [0] ) ; 

/* NumPasses = 999L; */ 
fgets(str, 256, fp) ; 
NumPassas = atol(str); 

fprintf (fLog, "NumPasses = *ld\n" , NumPasses) ; 
printf ("NumPasses = %ld\n" , NumPasses ) ; 

/* setup the ChiSq and SA lists */ 
nAvailVars = 0; 

for(n=0; n<pnet->MaxPEs [0] ; n++) { 
fgets(str, 256, fp) ; 
ChiSqList [n] = (short ) atoi (str) ; 
/* add code for initial set of vars */ 
i3 if (ChiSqList [n] < 0) { 

ip ChiSqList [n] = -ChiSqList [n] ; 

,y ImpVar [ChiSqList [n] - 1] = NORMUSE; 

SAList[n] = (short) atoi (strchr (str , ',') +1) ; 
/* add code to never use these vars */ 
P if (SAList [n] < 0) { 

SAList [n] = SAList [n] 
ImpVar [SAList [n] - 1] = NEVER; 
} else { 

nAvailVars += 1; 

} 

fprintf (fLog, " [%02d] ChiSq = %d SA = 
3 %d\n" , n, ChiSqList [n] , SAList [n] ) ; 

printf ("%02d] ChiSq = %d SA = %d\n" , n, ChiSqList [n] , 

SAList [n] ) ; 
} 

fprintf (fLog, "Availaable Variables = %d\n", n" , Avail Vars) ; 

for(n=0; n<nConsensus ; n++) { 
f gets (str, 256 , fp) ; 
Seeds [n] = atoi (str); 

fprintf (fLog, [%02d] Seed = %ld\n", n. Seeds [n] ; 
printf ("%02d] Seed = %ld\n", n. Seeds [n] ) ; 

} 

f close (fLog) ; 
f close (fp) ; 

/* load in the training data */ 
MaxVars = pnet ->MaxPEs[0]; 

ImpVarErr = (REAL) 9999.0; 

pnet->TestSize pnet->TrainSize / (long) nPartition; 
pnet ->Learn. Flag = 1; 
dd_allocate_net (NetNum) ; 

/* set up special processing for inputs */ 
dd_set_inputs_func (NetNum, partition_get_input_data) ; 

if ( AllocTrn (NetNum, (short) 1, (short) pnet- >TrainSize+10 ) < 0) { 
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printf ("Error Allocating Training set! \n") ; 
exit (0) ; 

} 

dd_get_trn_array (NetNum, &TrnData) ; 

ReadTrnSet (NetNum, (short) 1, (short) pnet->TrainSize, TrnFileName) ; 
pnet->TrainSize -= pnet->TestSize; 

/* copy ImpVar list to InputFunction list */ 
fLog = f open (LogFileName , "a"); 
nin = 0; 

for(x = 0; X < MaxVars ; x++) { 

if (ImpVar [x] == NORMUSE) { 

InputFunction [x] = NORMUSE; 
nln++ ; 

printf ("1"); 

fprintf (fLog, "1") ; 
} else if (ImpVar [x] NEVER) { 

InputFunction [x] = EXCLUDE; 

printf (" . ") ; 

fprintf (fLog, " . ") ; 
} else { 

InputFunction [x] = EXCLUDE; 

printf ("0") ; 

fprintf (fLog, "0") ; 



printf (" initial selection \n") ; 
fprintf (fLog, " initial selection \n") ; 
f close (fLog) ; 

if (nIn > 0) { 

/* train consensus of networks on the partitioned data */ 

TrainSelection (0 , nIn, NumPasses) ; 

ConsensusErr [0] /= (REAL) nConsensus ; 

ConsensusClass [0] /= (REAL) nConsensus ; 

printf ( "Initial Consensus Error %f Class %f \n" , 

(float) ConsensusErr [0] , (float) ConsensusClass [0] ) ; 
fLog = f open (LogFileName, "a" ) ; 

fprintf (fLog, "Initial Consensus Error %f Class %f \n" , 

(float) ConsensusErr [0] , (float) ConsensusClass [0] ) ; 
f close (fLog) ; 

ImpVarErr = ConsensusErr [0] ; 



/* open enumeration file for reading */ 
fEnum. = fopen ("Enum.lst", "r") ; 
if (fEnum != NULL) { 

while (fgets (str, 256 , fEnum) != 0) { 

/* generate the combination from the string */ 
X = 0; 

for (k = 0; k < MaxVars; k++) { 
if (str[k] == '0') { 

InputFunction [k] = EXCLUDE; 
printf ("0") ; 
} else if (str[k] == '1') { 

InputFunction [k] = NORMUSE; 
printf ("1") ; 
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X++ ; 
} else { 

InputFunction [k] = EXCLUDE; 
print f ("?"); 

> ' 

print f ("n"); 

/* evaluate the combination */ 

/* train consensus of networks on the partitioned data */ 
TrainSelection (0, (long) (x) NumPasses) ; 

/* statistics */ 

ConsensusErr [0] /= (REAL) nConsensus; 

ConsensusClass [0] /= (REAL) nConsensus; 

fLog = fopen (LogFileName, "a") ; 

for (i = 0; i < McixVars; i++) { 

if (InputFunction [i] == NORMUSE) { 
U print f ("%2d, (int) i+1) ) ; 

i;^ fprintf (fLog, "%2d, (int) (i+1); 

.p } 

i gj pr int f ( "Consensus Error %f Class %f \n" , 

(float) ConsensusErr [0] , (float) 

ConsensusClass [0] ) ; 

fprintf (fLog, "Consensus Error %f Class %f \n", 
l!f1 (float) ConsensusErr [0] , (float) ConsensusClass 

.:, [0] ; 

i»2 f close (fLog) ; 

'U ^ 

M f close (fEnum) ; 

M } 

#ifdef not 

*«* for(x = 1; X <= nAvailVars; x++) { 

/* generate x at a time combinations */ 
/* initialize the array */ 
ford = 0; i < X; i++) { 
Ne wVar [ i ] = i ; 

} 

/* iterate through the combinations */ 
do { 

/* set up InputFunction [] from NewVar[] */ 
n = 0; 
k = 0; 

for(i = 0; i < MaxVars; i++) { 

InputFunction [i] = NORMUSE; /* EXCLUDE; */ 
if (ImpVar[i] == NEVER) { 

InputFunctionc [i] = EXCLUDE; 

continue; 

} 

if (k < X && NewVar [k] == n) { 

InputFunction [i] = EXCLUDE; /* NORMUSE; */ 
k += 1; 

} 

n += 1; 

} 
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/* evaluate the combination */ 

/* train consensus of networks an the partitioned data */ 
TrainSelection(0, (long) (nAvailVars - x) NumPasses) ; 

/* statistics */ 

ConsensusErr [0] /= (REAL) nConsensus ; 
ConsensusClass [0] /= (REAL) nConsensus; 
fLog = f open (LogFileName, "a" ) ; ' 
for(i =0; i < MaxVars; i++) { 

if (InputFunction [i] == NORMUSE) { 
printf ("%2d,", (int) (i + 1) ) ; 

^ fprintf (fLog, "%2d,", (int) (i+1) ) ; 

printf ("Consensus Error %f Class %f \n" , 

(float) ConsensusErr [0] , (float) ConsensusClass [0] ) ; 
fprintf (fLog, "Consensus Error %f Class %f \n" , 
\^ (float) ConsensusErr [0] , (float) ConsensusClass [0] ) ; 

f close (fLog) ; 

13 /* geneerate next selection */ 

,P ford = x-1; i> = 0; i--) { 

NewVar [i] ++; 
for(k = i+1; k < x; k++) { 

NewVar [k] = NewVar [k-1] + 1; 

m } 

llfl if (NewVar [x-l] < nAvailVars) { 

,j break; 



#else 

lU 



} while (NewVar [x-l] < nAvailVars); 
} 

/* start the process of generating the important variables */ 
do { 

/* training data contains all variables */ 

/* use special array for getting inputs to network */ 

* determine the variables to use in the current run */ 

/* build list from ChiSq and SA */ 

nNewVar = 0 ; 

f or (x = 0; X < MaxVars; x++) { 

if (ImpVar [SAList [x] -1] == EXCLUDE) { 

NewVar [nNewVar] = SAList [x] - (short) 1; 
ImpVar [SAList [x] -1] = USED; 
nNewVar++; 

if (ImpVar [ChiSqList [x] -1] == EXCLUDE) { 

NewVar [nNewVar] = ChiSqList [x] - (short) 1; 
ImpVar [ChiSqList [x -1] = USED; 
nNewVar++ ; 

} 

if (nNewVar >= nTop) break; 

/* work through the list of new variables */ 
fLoq = fopen(LagFileName, "a") ; 
for (n = 0; n < nNewVar; n++) { 

/* copy ImpVar list to InputFunction list */ 

nin =0; 
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for(x = 0; X < MaxVars ; x++) { 

if (ImpVar[x] == NORMUSE) { 

InputFiinction [x] = NORMUSE; 
nln++; 

print f ("1"); 

f print f (fLog, "1") ; 
} else if (ImpVar[x] == NEVER) { 

InputFunction [x] = EXCLUDE; 

printf (" . ") ; 

f print f (fLog, " . ") ; 
} else { 

InputFunction [x] = EXCLUDE; 

printf ("0") ; 
^ fprintf (fLog, "0"); 

InputFunction [NewVar [n] ] = NORMUSE; 

1,,.^ nln++; 

1;^ printf ("...+ %d\n" , NewVar [n] +1) ; 

P fprintf (fLog, " . . .+ %d\n" , NewVar [n] +1) ; 

f close (f Log) ; 

{gl /* train consensus of networks on the partitioned data */ 

TrainSelection (n, nin, NumPasses) ; 
•^'M ConsensusErr [n] /= (REAL) nConsensus ; 

\f\ ConsensusClass [n] /= (REAL) nConsensus ; 

,j printf ("Var %d Consensus Error %f Class %f \n", 

( int) NewVar [n] +1, 

(float) ConsensusErr [n] , (float) ConsensusClass [n] ) ; 
f Log = f open (LogFileName , "a") ; 

fprintf (f Log, "Var %d Consensus Error %f Class %f \n" , 
(int) NewVar [n] +1, 

(float) ConsensusErr [n] , (float) 

ConsensusClass [n] ) ; 

f close (fLog) ; 

/* Test of the list of variables is complete */ 
/* Find the best variable based an error */ 
BestErr = (REAL) 999999 . 0 ; 
Best Var = -1; 

for(n=0; n< nNewVar; n++) { 

if (ConsensusErr [n] < BestErr) { 
BestErr = ConsensusErr [n] ; 
BestClass = ConsensusClass [n] ; 
BestVar = NewVar [n] ; 

/* Is there a variable that improved the ImpVar list Error */ 
/* Add the variable to the list of important variables */ 
if (BestErr < ImpVarErr) { 

ImpVar [BestVar] = NORMUSE; 
ImpVarErr = BestErr; 

printf ("Added %d to Imp Var List Error = %f Class = 



%f\n", 
BestClass) 

= %f/n". 



(int) BestVar+1, (float) BestErr , (float) 
fLog = fopen (LogFileName, "a"); 

fprintf (fLog, "Added %d to Imp Var List Error = %f Class 
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BestClass) ; 



} 



(int) BestVar+1, (f loat ) BestErr, (float) 
f close (f Log) ; 

for(x=0; x<MaxVars; x++) { 

/* cleanup from build of new variables list */ 
if (ImpVar [x] == USED) ImpVar [x] = EXCLUDE; 



/* if no improvement or no variables remaining, stop */ 
} while (BestVar != -1 && nNewVar > 0) ; 

/* report the list of Important Variables and the Network Error */ 
fLog = fopen. (LogFileName , "a") ; 
for(x=0; x<MaxVars; x++) { 

if (ImpVar [x] == NORMUSE) { 

printf ("USE [%d]\n", (int) x+1) ; 

fprintf (fLog, "USE [%d]\n", (int) x+1) ; 

} ^ 



ttendif 



it fclose (fLog) ; 

bz dd_f ree_net (NetNum) ; 

\J\ if(TrnData ! =NULL) { 

FreeTrn (NetNum) ; 
J, TrnData = NULL; 



m 
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Appendix II 

Copyright (c) 1991-1995 Adeza Biomedical Corporation 
FORMl.FRM - 1 

' Neural Network, Function Declarations 

Declare Function LoadNet% Lib "TKSDLL.DLL" (ByVal Net%, ByVal NetNameS) 
Declare Function AllocNet% Lib "TKSDLL.DLL" (ByVal Net%) 
Declare Function FreeNet% Lib "TKSDLL.DLL" (ByVal Net%) 

Declare Function ReadWeights% Lib "TKSDLL.DLL" (ByVal Net%, ByVal NetNameS) 
Declare Function LoadWeights% Lib "TKSDLL.DLL" (ByVal Net%, ByVal NetNameS) 
Declare Function ReadParms% Lib "TKSDLL.DLL (ByVal Net%, ByVal NetNameS) 
Declare Function LoadParms% Lib "TKSDLL.DLL" (ByVal Net%, ByVal NetNameS) 
Declare Function WriteWeights% Lib "TKSDLL.DLL" (ByVal. Net%, ByVal 
Net .Names) 

Declare Function SaveWeights% Lib "TKSDLL.DLL" (ByVal Net%, ByVal NetNameS) 
Declare Function WriteParms% Lib "TKSDLL.DLL," (ByVal. Net%, ByVal 
NetNameS) 

Declare Function SaveParms% Lib "TKSDLL.DLL" (ByVal. Net%, ByVal NetNameS) 
Declare Function Putlnputtt Lib "TKSDLL.DLL" (ByVal. Net%, ByVal. nln%, 
pln#) 

Declare Function PutStatett Lib "TKSDLL.DLL" (ByVal Net%, ByVal Layer%, 
Byval nSt%, pSt#) 

Declare Function PutOutput# Lib "TKSDLL.DLL (ByVal Net%, ByVal nSt%, pSt#) 
Declare Function PutTrn# Lib "TKSDLL.DLL" (ByVal Net%, ByVal nln%, pln#) 
Declare Function PutWeight# Lib "TKSDLL.DLL" (ByVal Net%, ByVal Layer%, 
ByVal pe%, ByVal nWt%, pWt#) 

Declare Function PutParm# Lib "TKSDLL.DLL" (ByVal Net%, ByVal ParmNameS, 

ByVal Layer %, pWt#) 

Declare Function Getlnput# Lib "TKSDLL.DLL: (ByVal Net%, ByVal. nln%) 
Declare Function GetState# Lib "TKSDLL.DLL" (ByVal Net%, ByVal Layer%, 
ByVal nSt%) 

Declare Function GetOutput# Lib "TKSDLL.DLL" (ByVal Net%, ByVal nSt%) 
Declare Function GetWeight# Lib "TKSDLL.DLL" (ByVal Net%, ByVal Layer%, 
ByVal pe%, ByVal nWt%) 

Declare Function GetParm# Lib "TKSDLL.DLL" (ByVal Net%, ByVal ParmNameS, 
ByVal Layer %) 

Declare Function GetTrn# Lib "TKSDLL.DLL" (ByVal Net%, ByVal nln%) 

Declare Function GetNumInputs% Lib "TKSDLL.DLL" (ByVal Net%) 

Declare Function GetNumOutputs% Lib "TKSDLL.DLL" (ByVal Net%) 

Declare Function GetNumPEs% Lib "TKSDLL.DLL" (ByVal Net%, ByVal Layer%) 

Declare Function GetNumLayers% Lib "TKSDLL.DLL (ByVal Net%) 

Declare Function InitializeWts% Lib "TKSDLL.DLL" (ByVal Net%) 

Declare Function Train. Net% Lib "TKSDLL.DLL" (ByVal Net%) 

Declare Function IterateNet% Lib "TKSDLL.DLL" (ByVal Net%) 

Declare Function IsNetAvail% Lib "TKSDLL.DLL" (ByVal Net%) 

Declare Function PutGrade% Lib "TKSDLL.DLL" (ByVal Net%, pGrade#) 

Declare Function GetWtsGrade# Lib "TKSDLL.DLL" (ByVal Net%) 

Declare Function AdjustWts% Lib "TKSDLL.DLL" (ByVal Net%) 

Declare Function GetBestWts% Lib "TKSDLL.DLL (ByVal. Net%) 

Declare Function AllocTrn% Lib "TKSDLL.DLL" (ByVal Net%, ByVal 

InclDesired%, ByVal NumExamples%) 

Declare Function FreeTrn% Lib "TKSDLL.DLL" (ByVal Net%) 

Declare Function PutTrnData# Lib "TKSDLL.DLL (ByVal Net%, ByVal 

InclDesired% ByVal Example%, ByVal Offset%, pVal#) 

Declare Function GetTrnData# Lib "TKSDLL.DLL (ByVal Net%, ByVal 

InclDesired%, ByVal Example%, ByVal Offset%) 

Declare Function ReadTrnSet% Lib "TKSDLL.DLL" (ByVal Net%, ByVal 
InclDesired%, ByVal NumExamples% , ByVal NetNameS) 

Declare Function BatchTrain% Lib "TKSDLL.DLL (ByVal Net%, ByVal MaxPasses%, 
pTargetError# ) 
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FORMl.FRM - 2 
' Variables 
Dim Age 
Dim Net Age # 
Dim NetPacks# 
Dim NetBirth# 
Dim NetPreg# 
Dim NetAbort# 
Dim NetDiabetes# 
Dim NetPregHTN# 
Dim NetHxEndo# 
Dim NetDysmentt 
Dim NetPelPain# 
Dim NetPAP# 
Dim NetHxPelSur# 
Dim NetMedHx# 
Dim NetGenWarts# 
Dim NetElisa# 



14 

m 
m 
m 



□ 
m 



Sub RunNets () 
Conl = 0 
Con2 = 0 

if NetElisatt = 0# Then 



NetAge# = (Age - 32.07688) / 5.226876 

For i = 0 To 7 

a = Put Input (i, 1, NetAge#) 

a = Putlnput(i, 2, NetDiabetesft) 

a = Put Input (i, 3, 

a = Putlnput(i, 4, 

a = Put Input (i, 5, 

a = Putlnput(i, 6, 

a = Put Input (i, 7, 

a = Putlnput(i, . 8, 

a = Put Input (i, 9, 

a = Put Input (i, 10, NetHxEndo#) 

a = Putlnputd, 11, NetHxPelSur#) 

a = Put Input (i, 12, NetMedHx#) 

a = Putlnput(i, 13, NetPelPain#) 

a = Put Input (i, 14, NetDysmen#) 

a = IterateNet (i) 
Conl = Conl + GetState(i, 3, 
Con2 = Con2 + GetState(i, 3, 

Next i 



NetPregHTN#) 
NetPacks#) 

NetPreg#) 
NetBirth#) 
Ne t Abort #) 

NetGenWartstt 

NetPAP#) 



1) 
2) 



Else 



NetAge# ~ Age 
For i = 8 To 15 



a = Putlnput(i, 
a = Put Input (i , 
a = Put Input (i , 
a = Putlnput(i, 
a = Put Input (i , 
a = Putlnput(i, 
a = Put Input (i, 7, 
a = Put Input (i, 8, 



1. 
2, 
3, 
4, 
5, 
6, 



NetAge#) 

NetDiabetes#) 

NetPregHTN#) 

NetPacks#) 

NetPreg#) 

NetBirth#) 

NetAbort#) 
NetGenWarts#) 



FORMl FRM 



a = Putlnput(i, 9, NetPAP#) 
a = Putlnput(i, 10, NetHxEndo#) 
a = Putlnput(i, 11, NetHxPelSur#) 
a = Put Input (i, 12, NetMedHx#) 
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a = Putlnput(i, 13, NetPelPain#) 
a = Put Input (i, 14, NetDysmen#) 
a = Putlnput(i, 15, NetElisa#) 
a = IterateNet (i) 

Conl = Conl + Get St ate (i, 3, 1) 
Con2 - Con2 + Get State (i, 3, 2) 

Next i 

End If 

Conl = Conl / 8 
Con2 = Con2 / 8 
Text2.Text = Conl 
Text4 . Text = Con2 



' Generate Score 

If NetElisatt = 0# Then 

Score = (Conl - Con2) * 25 

Else 

Score = (Conl - Con2) * 18 

End If 

Texts, Text = Score 



m 



b 



End 
Sub 

End 
Sub 

End 
Sub 

End 
Sub 

End 
Sub 

End 
Sub 



Sub 

Checkl_Click {) 

NetDiabetestt = 1# - NetDiabates* 

RunNets 
Sub 

Check2_Click () ^ 

NetDysTnen# = 1# - NetDysmenft 

RunNets 
Sub 

Check3_Click () 

NetPAP# = 1# - NetPAP# 

RunNets 
Sub 



Check4_Click ( ) 
NetPelPain# = 1# 
RunNets 

Sub 



NetPelPaintt 



Check5_Click () 

NetHxPelSurtt = 1# = NetHxPelSur# 

RunNets 
Sub 



Check6_Click () 
NetMedHxtt = 1# 
RunNets 



NetMedHx# 



FORMl.FRM - 4 
End Sub 

Sub Check7_Click () 

NetGenwartstt = 1# - NetGenWarts# 

RunNets 
End Sub 
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Sub Check8_Click () 

NetPregHTN# = 1# - NetPregHTN# 

RunNets 
End Sub 

Sub Check9_Click () 

NetHxEndo# = 1# - NetHxEndo# 

RunNets 
End Sub 

Sub Commandl_Click() 
Age = 3 0 

Text 1. Text = Age 

NetAge# = (Age - 32.07688) / 5.226876 
NetPacks# = 0# 
Text 3. Text = NetPacks# 
Text 2. Text = "Not Run" 
Text 4. Text = "Not Run" 
NetPregtt = 0# 
Text 5. Text = NetPreg# 



,p NetBirth# = 0# 

Text 6. Text = NetBirth# 



NetAbort# = 0# 
Text?. Text = NetAbort# 
!.n NetElisa# = 0# 

ip Text7.Text = Net.Elisa# 

]^ NetDiabetes# = 0# 

:,««. Checkl. Value = 0 

H' NetPregHTN# = 0# 

M Checks. Value = 0 

NetHxEndo# = 0# 
1,^ Checks. Value = 0 

NetDysmen# = 0# 
Check2. Value = 0 
rU NetPelPain# = 0# 

Che ck4. Value = 0 
NetPAP# = 0# 
Check3. Value = 0 
NetHxPelSur# = Oft 
Checks. Value = 0 
NetMedHx# = 0# 
Check6. Value = 0 
NetGenWarts# = 0# 
Check7 . Value = 0 

End Sub 
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Sub Command2_Click () 

End 
End Sub 

Sub ForTn_Load () 

a = LoadNet(0, "pat07 _0") 
If a <> 0 Then GoTo mess 
a = LoadNetd, "pat07_l") 
If a <> 1 Then GoTo mess 
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a = LoadNet(2, "pat07_2") 
If a <> 2 Then GoTo mess 
a = LoadNetO, "pat07_3") 
If a <> 3 Then GoTo mess 
a = Load]Sret(4, "pat07_4") 
If a <> 4 Then GoTo mess 
a = LoadNet(5, "pat07_5") 
If a <> 5 Then GoTo mess 
a = LoadNet(6, "pat07_6") 
If a <> 6 Then GoTo mess 
a = LoadNet(7, "pat07_7") 
If a <> 7 Then GoTo mess 
a = LoadNet(8, "crfel2_0") 
If a <> 8 Then GoTo mess 
a = LoaciNet(9, "crfel2_l") 
If a <> 9 Then GoTo mess 
a =. LoadNetdO, "crfel2_2") 
If a <> 10 Then GoTo mess 
a = LoadNetdl, "crfel2_3") 
If a <> 11 Then GoTo mess 
a = LoadNet{12, "crfel2_4") 
If a <> 12 Then GoTo mess 
a = LoadNet(13, "crfel2_5") 
If a <> 13 Then GoTo mess 
a = LoadNet(14, "crfel2_6") 
If a. <> 14 Then GoTo mess 
a = LoadNet(15, "crfel2__7") 

mess : 

If a <> 15 Then Text 4. Text = a + "No GOOD" 
' initialize variables 
Age = 3 0 

Text 1. Text = Age 

NetAge# = (Age - 32.07688) / 5.226876 

NetPacks# = 0# 

Text3.Text = NetPacks# 

Text2.Text = "Not Run" 

Text4.Text = "Not Run" 

NetPreg# = 0# 

Texts. Text = NetPreg# 

NetBirth# = 0# 

Texte.Text = NetBirth# 

NetAbort# = 0# 

Text 7. Text = NetAbort# 

NetElisa# = 0# 

Text 9. Text = NetElisa# 



FORMl.FRM - 6 

NetDiabetes# = 0# 
NetPregHTN# = 0# 
NetHxEndo# = 0# 
NetDysmen# = 0# 
NetPelPain# = 0# 
NetPAP# = 0# 
NetHxPelSur = 0# 
NetMedHx# = 0# 
NetGenWarts# = 0# 
End Sub 



Sub Textl_Change () 



Age = Val (Text 1 .Text) 
RunNets 
End Sub 

Sub Textl_LostFocus () 

RunNets 
End Sub 

Sub Text3_Change () 

NetPacks# = Val (Text3 . Text ) 

RunNets 
End Sub 

Sub Text 3_LostFocus () 

RunNets 
End Sub 

Sub Text5_Change () 

NetPreg# = Val (Texts . Text ) 

RunNets 
End Sub 

Sub Text5_LostFocus () 

RunNets 
End Sub 

Sub Text6_Change () 

NetBirthtt Val (TextS.Text) 

RunNets 
End Sub 

Sub Text6_LostFocus {) 

RunNets 
End Sub 

Sub Text7_Change () 

NetAbort# = Val (Text 7. Text) 

RunNets 
End Sub 

Sub Text 7_Lost Focus () 

RunNets 
End Sub 



FORMl.FRM - 7 

Sub Text9_Change () 

If Val (Text 9 .Text) <= 0# Then 
NetElisa# = 0# 

Else 

NetElisatt = Log (Val (Text 9. Text) 

End If 
RunNets 
End Sub 

Sub Text 9_Lo St Focus () 

RunNets 
End Sub 
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Appendix III 

Copyright (c) 1991-1995 Adeza Biomedical Corporation 
aa_nets.h revised 7/1/95 

Copyright (c) 1991-1995 Logical Designs Consulting Inc. 

/*This include file works for both DLL and DOS environments /* 

/*The following define determines the floating point precision */ 
/* Do not change it unless you intend to all source files */ 
ttdefine USE -DOUBLES 

#ifdef USE_DOUBLES 
#define REAL double 
#define SIG_LIM1T 44.0 
#else 

#define REAL float 
Ij, #define SIG_LIMIT 30.0 

i,^ #endif 

!!3 /* The following prevents multiple inclusion of this header file */ 

„E #ifndef _AA_NETS_H_ 

tig #ifndef __AA__NETS_H_ 

/* The following prevents C++ compiler from mangling names */ 
ill #ifdef cplusplus 

extern "C" ( 
i, #endif /* -cplusplus */ 

[^^ #ifdef _WINDOWS 

l"^ #include <windows.h> 

j'^ #endif 

v'=^ #include <stdio.h> 

;;f #include <stdlib.h> 

#include <math.h> 

#include <string.h> 

/* Uncomment the following to enable user messages */ 
ttdefine AA_ENABLE__USER_MES SAGES 

ttifdef _WINDOWS 
#ifdef WIN32 
#define HUGE 
# define EXPORT 
#else 

# define HUGE _huge 
#define EXPORT ^export 
#endif 
#else 

typedef unsigned short HANDLE; 
#define PASCAL 

#ifdef MSC ^APPL 

#include <malloc.h> 
#include <conio.h> 
#define HUGE huge 
#def ine FAR _far 
#define EXPORT 
#endif 
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ttifdef BC_APPL 
#include <alloc . h> 
ttinclude <conio . h> 
#define FAR 

#define HUGE huge 
#define EXPORT 
#endif 

#ifdef SC_APPL 

#include <dos.h> 

ttinclude <conio.h> 

#define FAR 

# define HUGE _huge 

#define EXPORT 

#endif 

#ifdef UNIX_ APPL 
#define FAR 
#define HUGE 
#define EXPORT 
#endif 

#ifdef WD32_APPL 
#include <conio.h> 
#define FAR 
#define HUGE 
ttdefine EXPORT 
#endif 



#endif 

#def ine 
#de£ine 



MAX LAYERS 
NU14-NETS 



32 



Struct ddnet { 

/* Network Description Parameters */ 

1 ong Net Arch ; 

arrangement */ 

long nLayers ; 

layers in the net */ 

long MaxPEs [MM_LAYERS] 

(for Mallocs) */ 

long nPEs [MAX_LAYERS] ; 

long PEFunc [iyiAX_LAYERS] ; 

Fuinction */ 

long PETrans [MAX_LAYERS] 

Transfer Function */ 

long 
routine) */ 



long 
routine) */ 

long 
routine) */ 

long 
routine) */ 

long 
routine) */ 



oIn(MAX_LAYERS] ; 
oWtS (MAX^LAYERS] 
oOut (MAX__LAYERS] 
nin [MAX_IiAYERS] ; 
nWts[MAX LAYERS] 



/* 

/* 
/* 
/* 
/* 
/* 



/* network interconnection 

/* The total number of 

/* max Processing Elements 

number of hidden */ 

/* Processing Element 

/* Processing Element 

offset of Layer Inputs (init 

offset of Weights (from init 

Offset of Layer Outputs (init 

count of Layer Inputs (init 

total number of weights (init 



/* Network Training Parameters 
long LearnFlag; 
long BatchSize; 



0=disable l=enable */ 
parameter for batching 
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ill 



long 
long 
long 
long 
long 



REAL 

REAL 

long 
trial units */ 

long 
nets */ 

long 
set */ 

long 
and testing */ 

long 

performance measurement 
*/ 



Trains ize ; 


/* 


TestSize; 


/* 


InitWtsFlag; 




RandSeed; 


/* 


NetErrorType ; 


/* 


ErrorTol ; 


/* 


InputNoise; 


/* 


nTrialPEs; 


/* 


RcrOpsPerl ter ; 


/* 


TmSequence ; 


/* 


Te s t Whi leTrn ; 


/* 


ClassMethod; 


/* 



parameter for preprocessing */ 
parameter for preprocessing */ 

/* 0=No l=Initialize weights */ 
for random number generator */ 
kind of error to minimize by net 

Error Tolerance for training */ 
Error Tolerance for training */ 
for growing algorithm, number of 

ops per iteration for recurrent 

order of presentation of training 

Controls processing fro training 

Method used to to classification 



long 
layer */ 

long 
only */ 

REAL 
REAL 

*/ 

REAL 

*/ 

REAL 

*/ 

REAL 
parameters */ 

REAL 
rule used */ 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 



NetRule [MAX_LAYERS] ; 

IterLimit [MAX_X LAYERS] ; 

InitWtsVal [MAX_LAYERS] ; , 
Xf erOf s [MAX_LAYERS] ; 

PESigma(MAX_LAYERS] ; 

PEMu [iyiAX_LAYERS] ; 

Alpha [MAX -LAYERS] ; 

Beta[MAX_LAYERS] ; 

Gamma [MAX_LAYERS] ; 
Delta [MAX_LAYERS] ; 
Epsilon [MAX_LAYERS] ; 
Theta[MAX-YERS] ; 
Lambda [MAX_LAYERS] ; 
Mu [MAX_LAYERS] ; 
Sigma [MAX_LAYERS] ; 



/* weight adjustment by 

/* for growing algorithms 

multiplier for grand ( ) */ 
/* offset for XferPrime 



Initial Sigma for LI, L2 , RBF 
Learning factor for PESigma 
/* learning rule 
/ * Values dependent on learning 



REAL WtsDecay (MAX_LAYERS] ; 

/* Network pointers (not all are allocated for a given network) */ 

/* pointer to current wieghts */ 

/* pointer to best wieghts */ 

/* pointer to spare weights */ 

/* pointer to direction wieghts 

/* pointer to bias weights */ 

/* pointer to spare weights */ 

/* pointer to the weighted sums 

/* pointer to the states for PE 

/* pointer to the states for PE 

/* pointer to the states deltas 

/* pointer to the training states 



REAL 


HUGE 


*pCurWts ; 


REAL 


HUGE 


*pBestWts ; 


REAL 


HUGE 


*pGateWts ; 


REAL 


HUGE 


*pDirWts; 


*/ 




REAL 


HUGE 


*pBiasWts ; 


REAL 


HUGE 


*pTempWtS; 


REAL 


HUGE 


*pNetSts; 


States */ 






REAL 


HUGE 


*pAStS7 


outputs */ 






REAL 


HUGE 


*pBStS; 


outputs */ 






REAL 


HUGE 


*pDelSts; 


*/ 






REAL 


HUGE 


*pTrnStS; 
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REAL HUGE 
REAL HUGE 
stats */ 
REAL 

*/ 

REAL HUGE 
REAL HUGE 
REAL HUGE 

output & trial unit */ 
REAL HUGE 

& trial unit */ 

long HUGE 

pe element */ 



*pErrSts; 
*pPriorErrSts ; 

HUGE *pErrSumSts; 

*pBiasSts ; 
*pProbSts; 
*pCovMat ; 

*pLastCovMat ; 

*poWtS; 



/* 


pointer 


to 


/* 


pointer 


to 


/* 


pointer 


to 


/* 


pointer 


to 


/* 


pointer 


to 


/* 


pointer 


to 


/* 


pointer 


to 


/* 


pointer 


to 



*/ 
*/ 



imit 
*/ 



/* The 


following is to 


ins 


HANDLE 


hCurWts; 


/* 


HANDLE 


hBestWts; 


/* 


HANDLE 


hGateWts; 


/* 


HANDLE 


hDirWts; 


/* 


HANDLE 


hBiasWts / 


/* 


HANDLE 


hTempWt s ; 


/* 


HANDLE 


hNetSts; 


/* 


HT^NDLE 


hAStS; 




HANDLE 


hBSts; 




HANDLE 


hDelSts ; 


/* 


HANDLE 


hTrnSts ; 


/* 


HANDLE 


hErrSts ; 


/* 


HANDLE 


hPriorErrSts ; 


HANDLE 


hErrSumSts ; 


/* 


HANDLE 


hBiasSts ; 


/* 


HANDLE 


hProbSts; 


/* 


H7\NDLE 


hCovMat ; 


/* 


*/ 






HANDLE 


hLastCovMat 


;/* 


*/ 






HANDLE 


hoWts ; 


/* 



re DLL compatibility */ 
HANDLE to current wieghts */ 
HANDLE to best wieghts */ 
HANDLE to spare weights */ 
HANDLE to direction wieghts */ 
HANDLE to bias weights */ 
HANDLE to spare weights */ 
HANDLE to the weighted sums states 



/* HANDLE to the states for PE outputs 

/* HANDLE to the states for PE outputs 

HANDLE to the states deltas */ 
HANDLE to the training states */ 
HANDLE to the Error stats */ 

/* HANDLE to the Prior Error stats */ 
HANDLE to the Error Sum stats */ 
HANDLE to the Bias stats */ 
HANDLE to the Prop stats */ 
HANDLE to covariance by output 

HANDLE 



& trial 



to prior cov by output & trial 
HANDLE to weights offsets by pe element 



/* Network Training Statistics and Globals */ 



long 


Iteration; 


/* 


iteration count */ 


long 


Op er Mode ; 






long 


TrialPick; 






long 


CurCrit [MAX- LAYERS] ; 






long 


TrainingMode ; 


/* 


In Training Testing or 


Sensitivity analysis */ 






long 


TrnMaxErr Sample ; 


/* 


Training Example with 


Maximum Error 


V 






long 


TrnClassCorrect ; 


/* 


Training set Correct 


count */ 








long 


TstMaxErrSample ; 


/* 


Test Example with 


Maximum Error 


*/ 






long 
count */ 


TstClassCorrect ; 


/* 


Training set Correct 








REAL 


TrnError ; 


/* 


Training Set Error 


Statistic */ 








REAL 


TrnMaxError ; 


/* 


Training Set Error 


Statistic */ 








REAL 


TrnClassPercent ; 


/* 


Training Set Error 


Statistic */ 
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REAL 

*/ 

REAL 
Statistic */ 
REAL 

*/ 

REAL 

MFA networks */ 
REAL 
REAL 
REAL 



*/ 
*/ 

}; 



REAL 
REAL 



#i£nde£ max 
#define max(a,b) 
#define min(a,b) 
ttendif 

#ifndef fabs 
#define fcibs(a) 
ttendif 

#ifndef ffsgn 
#define ffsgn (a) 
#endif 



TstError ; 

TstMaxError ; 

TstClassPercent ; 

PETemp , MAX_LAYERSI ; 

LastVal (MAX_LAYERS) ; 
CurTemp [MAX_LAYERS] ; 
CurErr [MAX_LAYERS] ; 

LastErr (MAX_LAYERS] ; 

BestErr[MAX LAYERS] ; 



({{a)>(b))?(a) : (b)) 
({{a)<(b))?(a) : (b) ) 



(({a)>=0.0)?(a) : (-a)) 



/* Test Set Error Statistic 

/* Test Set Error 
/* Test Set Error Statistic 
/* Temperature for Hopfield 
/* current step size */ 
/* to error function value 
/* to error function value 
/* best error value */ 



(({a)>0.0)?(1.0) : ({(a) ==0.0)? (0.0) : (-1.0))) 



/* DEFINES for input layer preprocessing 

#define NO_PREPROC 0 

#define MEAN_STD 1 

#define MAX_MIN - 2 

idefine SUM_1 3 

#define SUM_SQ-1 4 

-/* DEFINES for Network Error form */ 

#def ine MEAN_SQ_ERR ' 1 

#define MEAN_ABS_ERR 

#def ine HYPER_SQ_ERR 

#define BI_HYPER_SQ_ERR 4 

# de f i ne ME AN_4 P W_E RR 

ftdefine CROS_ENTROPY 

#define CLASS__ERR 7 

#define USER DEFINED 



2 
3 

5 
6 



/* DEFINES for Network Architecture */ 

#define FEED_FORWARD 1 

#define FF_CON_PRIOR 2 

#define TOTAL_RCR 3 

#define PRIOR_RCR 4 

#define CASCADE 5 

#define CASCADE_RCR 6 

#define ELMAN_RCR 7 

idefine JORDAN RCR 8 



/* DEFINES for the PE Functions */ 

ttdefine DOT_PROD 1 

#define L2_DIST 2 

#define LI DIST 3 
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#def ine 


QUAD SUM 


4 




#def ine 


RADIAL 




5 


ttdef ine 


SIGMA PI 




6 


#def ine 


GRNN SUM 




7 


#ifdef 


AG CUSTOM 






#def ine 


FUZZ APP 




8 


#def ine 


GEN SIG PI 


9 




#endif 








/* DEFINES 


for Transfer Functions 


*/ 


#def ine 


SIGMOID 




1 


#def ine 


BI SIGMOID 


2 




#def ine 


ATAN 


3 




#def ine 


BI_ATAN 




4 


#def ine 


SIN 




5 


#define 


BI SIN 




6 


#define 


LINEAR 




7 


#def ine 


THRES LINEAR 




8 




BI THRES LINEAR 


9 




#def ine 


THRESHOLD 


10 




#def ine 


BI THRESHOLD 




11 


#def ine 


GAUSS 


12 




#def ine 


CAUCHY 




13 


#def ine 


WIN TAKE ALL 




14 


ttue£ J. lie 


PERIODIC SIN 




15 


#def ine 


STCH THREES 


16 




#def ine 


STCH BI THRES 




17 


#def ine 


MFA THRES 


18 




#def ine 


MFA_BI_THRES 




19 


/* DEFINES 


for Training set 


ordering */ 


#def ine 


NORMAL 




0 


#def ine 


RANDOM 




1 


#def ine 


SHUFFLE 




2 


#def ine 


TD REVERSE 


3 




/* DEFINES 


for Learning Rules for NetRule [layer] */ 


#def ine 


NONE 


0 




#def ine 


BACK PROP 


1 




#de£ine 


QUICK PROP 


2 




#def ine 


JACOBS PROP 


3 




#def ine 


KOHONEN WTA 


4 




#def ine 


SIM_ANNEAL 


5 




tf ciei. xne 


RECURRENT BP 




6 


#def ine 


KOHONEN LVQ 


7 




#def ine 


CASCADE CORR 




8 


#def ine 


SW RAND OPT 


9 




#def ine 


SIMPLEX SA 


10 




#def ine 


POWELL OPT 


11 




#def ine 


CONJ GRAD 


12 




#def ine 


PROB NET 




13 


#def ine 


GEN REG NET 


14 




#def ine 


LEVEN MARQ 


15 




#def ine 


NUM_ALGO 


16 




/* DEFINES 


for CASCADE CORR 


growing 


algorithms OperMode 


ttdefine 


TRIAL ADJ 




1 


#def ine 


OUTPUT ADJ 


2 




#def ine 


GLOBAL ADJ 


3 




#def ine 


MAX CAPACITY 




4 
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/* DEFINES for GRNN OperMode */ 
#define LOAD^TRN 1 

#define SIGMA_7UDJ 2 

/* DEFINES for Classification Method */ 
ttdefine BEST__PICK 0 

#define WITHIN_TOL 1 

/* The following is defined when error message displays should be shown */ 
#define AA SHOW ERROR MESSAGES 



w 



ru 



/* Error 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#define 
#def ine 
#def ine 

#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
ttdefine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 



return codes */ 

AA_ERROR_NONE 0 

AA_ERROR_OPEN_PARMS_FILE - 1 

AA_ERROR_LOADING_PARMS - 2 

AA_ERROR_CREATE_PARMS_FI LE - 3 

AA_ERROR__S AVING_PARMS - 4 

AA_ERROR_NO_EQUAL_IN_PARMS_LINE - 5 

AA_ERROR_IDENTIFIER_IN_PARMS -6 

AA_ERROR_OPEN_WE IGHTS_FI LE - 7 

AA_ERROR_LOADYNG_WEIGHTS - 8 

AA_ERROR_CRE . ATE_WEIGHTS_FILE - 9 

AA_ERROR_SAVING_WEIGHTS - 10 

AA_ERROR_CRE . ATE_WTS_LOG_F I LE - 1 1 

AA_ERROR_S AVING__WTS__LOG - 1 2 

AA_ERROR_ALLOC -100 

AA_ERROR_ALLOC_poWts ( AA_ERROR_ALLOC 

AA_ERROR_ALLOC_pNetStS ( AA_ERROR__ALLOC 

AA_ERROR_ALLOC_pASts ( AA_ERROR__ALLOC 

AA_ERROR_ALLOC_pBStS ( AA_ERROR_ALLOC 

AA_ERROR_ALLOC_pDelSts ( AA_ERROR_ALLOC 

AA_ERROR_ALLOC_pTrnSts ( AA_ERROR_ALLOC 

AA_ERROR_ALLOC_pErrSts ( AA_ERROR_ALLOC 

AA_ERROR_ALLOC_j)PriorErrStS ( AA_ERROR_ALLOC 

AA_ERROR_ALLOC_pErrSumStS ( AA_ERROR_ALLOC 

AA_ERROR_ALLOC_pBiasSts ( AA_ERROR_ALLOC 

AA_ERROR_ALLOC_pProbSts ( AA_ERROR_ALLOC 

AA_ERROR_ALLOC_pCovMat ( AA_ERROR__ALLOC 

AA_ERROR_ALLOC_pLastCovMat ( AA_ERROR_ALLOC 

AA_ERROR_ALLOC_pCurWtS { AA_ERROR_ALLOC 

AA_ERROR__ALLOC_pBestWts ( AA_ERROR_ALLOC 

AA_ERROR_ALLOC_pDirWts { AA_ERROR__ALLOC 

AA_ERROR_ALLOC_pBiasWts ( AA_ERROR_ALLOC 

AA_ERROR_ALLOC_pGateWts ( AA_ERROR_ALLOC 
AA_ERROR_ALLOC_pTempWts ( AA_ERROR_ALLCC - 



18 ) 



0 
1 
2 
3 
4 
5 
6 
7 
8 
9 

10 ) 

11 ) 

12 ) 

13 ) 

14 ) 

15 ) 

16 ) 

17 ) 



/* function prototypes reference */ 

/* Visual Basic and Excel functions specific to the DLL library */ 
short FAR PASCAL EXPORT LoadNet (short NetNum, char FAR *pName) ; 
short FAR PASCAL EXPORT LoadWeights (short NetNum, char FAR *pName) ; 
short FAR PASCAL EXPORT ReadWeights (short NetNum, char FAR *pName) ; 
short FAR PASCAL EXPORT LoadParms (short NetNum, char FAR *pName) ; 
short FAR PASCAL EXPORT ReadParms (short NetNum, char FAR *pName) ; 
short FAR PASCAL EXPORT AllocNet (short NetNum) ; 
short FAR PASCAL EXPORT FreeNet (short NetNum) ; 

short FAR PASCAL EXPORT SaveWeights (short NetNum, char FAR *pName) ; 
short FAR PASCAL EXPORT WriteWeights { short NetNum, char FAR *pName) ; 
short FAR PASCAL EXPORT SaveParms (short NetNum, char FAR *pName) ; 
short FAR PASCAL EXPORT WriteParms (short NetNum, char FAR *pName) ; 
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double FAR PASCAL EXPORT Put Input (short NetNum, short nin, double FAR 

*pln ) ; 

double FAR PASCAL EXPORT PutState (short NetNum, short layer, short 

pe, double FAR *pSt) ; 

double FAR PASCAL EXPORT Putoutput (short NetNum, short nSt, double 

FAR *pSt) ; 

double FAR PASCAL EXPORT PutTrn (short NetNum, short nSt, double FAR 

*pSt) ; 

double FAR PASCAL EXPORT PutWeight (short NetNum, short layer, short 

pe, short nWt, double FAR *pWt) ; 

double FAR PASCAL EXPORT PutParm (short NetNum, char FAR *pName, short 

layer, double FAR *pVal) ; 

double FAR PASCAL EXPORT Get Input (short NetNum, short nin) ; 

double FAR PASCAL EXPORT Get State (short NetNum, short layer, short 

nSt) ; 

double FAR PASCAL EXPORT GetOutput (short NetNum, short nSt) ; 

doiable FAR PASCAL EXPORT GetTrn (short NetNum, short nSt) ; 

,«s, double FAR PASCAL EXPORT GetWeight (short NetNum, short layer, short 

ia. pe, short nWt) ; 

double FAR PASCAL EXPORT GetParm (short NetNum, char FAR *pName, short 

layer) ; 

short FAR PASCAL EXPORT GetNumlnputs (short NetNum) ; 
ly short FAR PASCAL EXPORT GetNumOutputs (short NetNum) ; 

short FAR PASCAL EXPORT GetNumPEs (short NetNum, short layer) ; 
1'^ short FAR PASCAL EXPORT GetNumLayers (short NetNum) ; 

m short FAR PASCAL EXPORT Initial! zeWts (short NetNum) ; 

i;0 short FAR PASCAL EXPORT TrainNet (short NetNum) ; 

short FAR PASCAL EXPORT IterateNet (short NetNum) ; 
short FAR PASCAL EXPORT IsNetAvail (short NetNum) ; 

short FAR PASCAL EXPORT PutGrade (short NetNum, double FAR *pVal) ; 
l''=^ double FAR PASCAL EXPORT GetWtsGrade ( short NetNum) ; 

short FAR PASCAL EXPORT AdjustWts (short NetNum) ; 
5,^, short FAR PASCAL EXPORT GetBestWts (short NetNum) ; 

short FAR PASCAL EXPORT AllocTrn (short NetNum, short InclDesired, short 
nExamples) ; 

ly short FAR PASCAL EXPORT FreeTrn (short NetNum); 

double FAR PASCTUj EXPORT PutTmData (short NetNum, short InclDesired, 

short example, short offset, double FAR *pVal) ; 

double FAR PASCAL EXPORT GetTmData (short NetNum, short InclDesired, 

short example, short offset) ; 

short FAR PASCAL EXPORT ReadTrnSet (short NetNum, short InclDesired, short 
MaxTrn, char FAR *pName ) ; 

short FAR PASCAL EXPORT BatchTrain ( short NetNum, short MaxPasses, double 

FAR *TargetError ) ; 

/* user definable network evaluation function for graded and batched 
learning */ 

' void FAR PASCAL EXPORT eval_net (short NetNum, REAL *pRMSError, REAL 
*pMaxError, REAL *pC lassError) ; 

void FAR PASCAL EXPORT dd_set_inputs_f unc (short NetNum, long (FAR PASCAL 
EXPORT *inputs_fn) (short NetNum, long example) ) ; 

void FAR PASCAL EXPORT dd_set_sample_f unc (short NetNum, void (FAR PASCAL 
EXPORT *sample_fn) (short NetNum, long example) ) ; 

void FAR PASCAL EXPORT dd_set_pass_f unc (short NetNum, void (FAR PASCAL 
EXPORT *pass_fn) (short NetNum)); 

/* C language callable functions */ 

void FAR PASCAL dd_get_struct (short NetNum, struct ddnet FAR **pnet) ; 
void FAR PASCAL dd_get_trn_array (short NetNum, float HUGE **ptrndata) ; 
short FAR PASCAL dd_allocate_net (short NetNum) ; 
void FAR PASCAL dd_initialize_wts (short NetNum) ; 
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void FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 
Target Error) ; 
void FAR PASCAL 
Target Error) ; 
void FAR PASCAL 
TargetError) ; 
void FAR PASCAL 
TargetError) ; 
void FAR PASCAL 
TargetError) ; 
void FAR PASCAL 
TargetError) ; 
void FAR PASCAL 
TargetError) ; 
void FAR PASCAL 
TargetError) ; 
void FAR VASCAL 
TargetError) ; 
void FAR PASCAL 
TargetError) ; 
void FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 
void FAR PASCT^ 
void FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 
void FAR PASCAL 



dd_free_net (short NetNum) ; 
dd_adjwts (short NetNum) ; 

dd__train_network (short NetNum, long MaxPasses, double 

dd_train_sa (short NetNum, long MaxPasses, double 

dd_train_swro (short NetNum, long MaxPasses, double 

dd__train__meb (short NetNum, long MaxPasses, double 

dd_train_pow (short NetNum, long MaxPasses, double 

dd_train_cg (short NetNum, long MstxPasses, doiible 

dd_train_pnn (short NetNum, long MaxPasses, double 

dd_train_grnn (short NetNum, long MaxPasses, double 

dd_train_lm (short NetNum, long MaxPasses, double 

dd_train_by_sample (short NetNum, long MaxPasses, double 

dd_train ( short NetNum ) 
dd_iterate (short NetNum) 
dd_preproc (short NetNum) 
dd__gendir (short NetNum, short layer) ; 
dd_bstwts (short NetNum, short layer) ; 
dd_curwts (short NetNum, short layer) ; 
dd_otp_ff (short NetNum) ; 
dd_otp_ffcp (short NetNum) ; 
dd_otp_ti (short NetNum) ; 
dd_otp_pi (short NetNum) ; 
dd_otp_cas (short NetNum) ; 
dd_otp_cas_rcr (short NetNum) 
dd_otp_elm_rcr (short NetNum) 
dd_otp_jor__rcr (short NetNum) 
dd_grad (short NetNum) ; 

dd_grad_mse (short NetNum, short layer) ; 
dd__grad_mae (short NetNum, short layer) , 
dd_grad_hse (short NetNum, short layer) ; 
dd_grad_bhse (short NetNum, short layer) ; 
dd_grad_m4pe (short NetNum, short layer) ; 
dd_grad_ce (short NetNum, short layer) ; 
dd_grad_y (short NetNum, short layer) ; 
dd_grad_ff (short NetNum, short layer) ; 
dd_grad_ffcp (short NetNum, short layer) ; 
dd_grad_t_rcr (short NetNum) ; 
dd_grad_cas (short NetNum, short layer) ; 
dd_grad_elm_rcr (short NetNum, short layer) ; 
dd_grad_jor_rcr (short NetNum, short layer) ; 
dd_adj_bpn (short NetNum, short layer) ; 
dd_adj_qp (short NetNum, short layer) ; 
dd_adj_jacob (short NetNum, short layer) ; 
dd_adj_koh (short NetNum, short layer) ; 
dd__adj_lvq (short NetNum, short layer) 
dd_adj_sa (short NetNum, short layer) ; 
dd_adj_swro (short NetNum, short layer) ; 
dd_grad_cascor (short NetNum) ; 
dd_adj_cascor (short NetNum) ; 
dd_adj_pnn (short NetNum) ; 
dd_adj_grnn (short NetNum) ; 
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void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


short 


FAR 


PASCAL 


short 


FAR 


PASCAL 


short 


FAR 


PASCAL 


short 


FAR 


PASCAL 


short 


FAR 


PASCAL 


short 


FAR 


PASCAL 


short 


FAR 


PASCAL 


short 


FAR 


PASCAL 


void 


FAR 


PASCAL 


short 


FAR 


PASCAL 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 


*pMaxWts) , 




void 


FAR 


PASCAL 


char 


FAR 


*dd < 


void 


FAR 


PASCAL 


void 


FAR 


PASCAL 



dd_adj_lm (short NetNum) ; 
dd_parms (.short NetNum) ; 

dd_load_j)arms (short NetNum, char *name) 
dd_save_parms (short NetNum, char *name) 
dd_read_jparms (short NetNum, char *name) 
dd_write_parms (short NetNum, char *name) ; 
dd_load_wts (short NetNum, char *name) ; 
dd__save_wts (short NetNum, char *name) ; 
dd_read_wts (short NetNum, char *name) ; 
dd_write_wts (short NetNum, char *name) ; 
dd_print_weights ( short NetNum. ) ; 
dd_log_weights ( short NetNum, char *fname) ; 
dd_add_pe (short NetNum, long layer) ; 
generate_of f sets (short NetNum, long *pTotWts, long 



user_message (char *str ) ; 

stmem ( HANDLE *pH, long len) ; 

dd_freemem (HANDLE *pH, char FAR 
add wts ( 



•^pM) 



short NetNum, 

long layer, 

long Ofs, 

long cnt, 

double InitVal) ; 
void FAR PASCAL Xf erFunc ( 

REAL HUGE *pln, 

REAL HUGE *pOut , 

short n, 

short Type , 

REAL *Temp) ; 
void FAR PASCAL Xf erPrime ( 

REAL HUGE *pl , 

REAL HUGE 

REAL HUGE 

short 

short 

void FAR PASCAL PeFunc ( 

REAL HUGE *pln, 
REAL HUGE 
REAL HUGE 
short 
short 
short 

void FAR PASCAL PePrime ( 

REAL HUGE *pln, 
REAL HUGE *pErrIn, 
REAL HUGE *pWts, 
REAL HUGE *pDir, 
REAL HUGE *pErrOut, 
REAL HUGE 
short 
short 
short 

void FAR PASCAL vamul ( 

REAL HUGE *pA, 

REAL HUGE 

REAL HUGE 

REAL HUGE 

long n) 
double FAR PASCAL crand (void) ; 

double FAR PASCAL grand (void); 



*pN, 
*pO, 

Type) ; 



**ppWts, 
*pOut , 
nin, 
nOut , 
Type) ; 



*pMu, 
nin, 
nOut , 
Type) ; 



*pvA, 

*pB, 

*pC, 
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void FAR PASCAL surand (long idum) ; 
double FAR PASCAL urand (void) ; 

double FAR PASCAL xrand (void) ; 

#ifdef __cplusplus 

lendif 

#endif /* AA_NETS_H_ */ 

/irififi(ifiri(icie*********ic***ie********ic********ieir****ic*ieir***ir^ *** *********** 

******** I 



I / mainf rm . cpp : implementation of the CMainFrame class 

□ #include "stdafx.h" 

□ #include "PTDinp.h" 

i*y # include "mainfrm.h" 

W ftifdef _DEBUG 

i,n #undef THIS_FILE 

m static char BASED_CODE THIS_FILE [] = FILE; 
#endif 

'^'3 /////////////////////////////////////////////////////////////////////////// 

1^^ /////////////////////////////////////////////////////////////////////////// 

h«S, // CMainFrame 

^ IMPLEMENT_DYNCREATE (CMainFrame, CFrameWnd) 

i'U BEGIN_MESSAGE__MAP (CMainFrame, CFrameWnd) 

/ / { { AFX M5G_MAP ( CMainFrame ) 

/7 NOTE - the ClassWizard will add and remove mapping macros 

here . 

// DO NOT EDIT what you see in these blocks of generated 

code ! 

ON WM_CREATE() 
/ /y } AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// arrays of IDs used to initialize control bars 

// toolbar buttons - IDs are command buttons 
static UINT BASED CODE buttons [] 

{ 

// same order as in the bitmap 'toolbar.bmp' 
ID_FILE_OPEN, 

ID_SEPARATOR, 
ID_REC_FIRST, 
ID__REC_PREV, 
ID_REC_NEXT, 
ID_REC_LAST, 

ID_SEPARATOR, 
ID DATA EDIT, 
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ID_DATA_NEW, 

ID^SEPARATOR, 
ID_REC_GOTO, 

ID_SEPARATOR, 
ID APP ABOUT, 

}; " " 

Static UINT BASED CODE indicators [] = 
{ 

ID_SEPARATOR, // Status line indicator 

ID__INDICATOR_CAPS , 
ID_INDICATOR_NUM , 
ID INDICATOR SCRL, 

}; 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
1^ // CMainFrame construction/destruction 

u3 CmainFrame : : CmainFrame ( ) 

i;3 { 

.,p // TODO: add member initialization code here 

w ^ 

CMainFrame : : -CmainFrame { ) 



int CMainFrame ; :OnCreate (LPCREATESTRUCT IpCreateStruct) 

; . { 

if (CframeWnd: rOnCreate (IpCreateStruct) == -1) 
return -1; 

if ( !m_wndToolBar. Create (this) || 

! m_wndToolBar . LoadBi tmap ( IDR_MAINFRAME ) | | 
rU • ! m_wndToolBar . SetButtons (buttons , 

sizeof (buttons) /sizeof (UINT) ) ) 



{ 



} 



TRACE ("Failed to create toolbar\n") ; 
return -1; // fail to create 



if ( !m__wndStatusBar . Create (this) || 

! m_wndStatusBar . Set Indicators ( indicators , 
sizeof (indicators) /sizeof (UINT) ) ) 



{ 



} 



} 

return 0 ; 



TRACE ("Failed to create status bar\n"); 
return -1; // fail to create 



/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// CMainFrame diagnostics 

#ifdef _DEBUG 

void CMainFrame: : AssertValid ( ) const 

{ 

CFrameWnd: : AssertValid () ; 
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} 

void CMainFrame: :Dump (CDumpContext& dc) const 
CFrameWnd: :Duinp(dc) ; 

#endif //_DEBUG 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// CMainFrame message handlers 



// mainfrm.h : interface of the CMainFrame class 

g /////////////////////////////////////////////////////////////////////////// 
->P ///////////////////////////////////////////////////////////////////// 

class CmainFrame : public CFrameWnd 

I'M protected: // create from serialization only 

lIH CmainFrame ( ) ; 

DECLARE DYNCREATE (CMainFrame) 



//Attributes 
public : 



|,«^ // Operations 

|'2 public : 

// Implementation 
public: 

virtual -CmainFrame () ; 
#ifdef_DEBUG 

virtual void Assert Valid ( ) const; 

virtual void Dump (CDumpContext& dc) const; 

#endif 

protected: // control bar embedded members 
CStatusBar m_wndStatusBar ; 
CToolBar m_wndToolBar ; 

// Generated message map functions 
protected : 

// { { AFX_MSG (CMainFrame) 

afx_msg int OnCreate (LPCREATESTRUCT IpCreateStruct) ; 

// NOTE - the ClassWizard will add and remove member functions here. 
// DO NOT EDIT what you see in these blocks of generated code! 
//} }AFX_MSG 
DECLARE MESSAGE MAP ( ) 

}; . " 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////// 
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□ 

lb 
m 



PTDDlgl.cpp : Defines the class behaviors for the application. 

#include "stdafx.h'' 
#include ' 'PTDinp.h' ' 
#include ' ' PTDDlgl .h' ' 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE [] = _FILE_; 
#endif 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// CPTDInp dialog 

CPTDInp: :CPTDInp(CWnd* pParent /*=NULL*/) 
: CDialog (CPTDInp :: IDD, pParent) 

// ( (AFX_DATA_INIT (CPTDInp) 
m_DATE_OF_BIRTH = »' »• ; 
m_NAME_F = " " ; 
m_NAME_MI = 
m_l_COMP = FALSE; 
m_2_C0MP = FALSE; 
m_3_COMP = FALSE; 
Tn_4_COMP = FALSE; 
m_5_COMP = FALSE; 
m_6_C0MP = FALSE; 
Tn_ACOG_N = FALSE; 
m_ACOG_Y = FALSE; 
m_Antibiotics = FALSE; 
m_AntiHyper = FALSE; 
m_CervCerclage = FALSE; 
m_CervFirm = FALSE; 
m_CervMod = FALSE; 
m_CervSoft = FALSE; 
m_Corticosteroids = FALSE; 
m_Dilitationl_2 = FALSE; 
m_Dilitation2 = FALSE; 
m_Dilitation2_3 = FALSE; 
m_Dilitation3 = FALSE; 
m_DilitationGt3 = FALSE; 
m_Dilitationl = FALSE; 
m_DilitationLtl = FALSE; 
m_DilitationUkn = FALSE; 
m_EGAat Sample = " " ; 
m_EGAbyLMP = ""; 
m__EGAbySONO = " " ; 
m^EthnicOriginAsian = FALSE; 
m_EthnicOriginBlack = FALSE; 
Tn__EthnicOriginHispanic = FALSE; 
m_EthnicOriginNativeAmerican = FALSE; 
m_EthnicOriginOther = FALSE; 
m_EthnicOriginWhite = FALSE; 
m_FFN_Neg = FALSE; 
m_FFN_Pos = FALSE; 
in_GestationalDiabetes = FALSE; 
m_HypertensiveDisorders = FALSE; 
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m__Insulin = FALSE; 
m_LadID = ""; 
Tn_MedicationNone = FALSE; 
m_ModicationUnknown = FALSE; 
m_MultipleGestationQuads = FALSE; 
m_MultipleGestationTriplets = FALSE; 
m_MultipleGestationTwins = FALSE; 
m_MaritalStatusDivorced = FALSE; 
m_MaritalStatusLWP = FALSE; 
m_MaritalStatusMarried = FALSE; 
m_MaritalStatusOther = FALSE; 
m_MaritalStatusSingle = FALSE; 
m_MaritalStatusWidowed = FALSE; 
m_MultipleGestation = FALSE; 
m_PatientCompl = FALSE; 
m_PatientCoinp2 = FALSE; 
m_PatientComp3 = FALSE; 
Tn_PatientComp4 = FALSE; 
in_PatientComp5 = FALSE; 
in_PatientComp6 = FALSE; 
in_Tocolytics = FALSE; 
m_UtCervAbnorTnal = FALSE ; 
m^VaginalBleeding = FALSE; . 
m_VaginalBleedingGross = FALSE; 
m_VaginalBleedingMed = FALSE; 
m__VaginalBleedingTrace = FALSE; 
m_2_C0MP_l = FALSE; 
m_2_COMP_2 = FALSE; 
Tn_2_COMP_3 = FALSE; 
m_ABORTIONS = ""; 
m_PARITY = ""; 
m_PatCompl_l_3 = FALSE ; 
m_PatCompl_10_12 = FALSE; 
m_PatCompl_4_6 = FALSE; 
m_PatCompl_7_9 = FALSE; 
m_PatCompl_GT12 = FALSE; 
m_PatCompl_LTl = FALSE; 
m GRAVITY = ""; 
/7} }AFX_DATA_INTT 



void CPTDInp : :DoDataExchange (CDataExchange* pDX) 

CDialog: :DoDataExchange (pDX) ; 
// { {AFX_DATA_MAP (CPTDInp) 

DDX_Text (pDX, IDC_DATE_OF_BIRTH, m_DATE_OF_BIRTH) ; 
DDX_Text (pDX, IDC_NAME_F, m_NAME_F) ; 
DDV_iyiaxChar s ( pDX , m_NAME_F , 24); 
DDX_Text ( pDX , IDC__NAME__L , Tn_NAME_L ) ; 
DDV_MaxChar s ( pDX , m_NAME_L , 24); 
DDX_Text (pDX , IDC_NAME_MI , m_NAiyiE__MI ) ; 
DDV_MaxChar S (pDX , M_NAME_MI , 2 ) ; 
DDX_Check (pDX , IDC_l_COMP , m__l_COMP) ; 
DDX_Check (pDX , IDC_2_COMP , m_2_COMP) ; 
DDX__Check(pDX, IDC_3_COMP, m_3_COMP) ; 
DDX_Check (pDX , IDC_4_COMP , m_4_COMP) ; 
DDX_Check(pDX, IDC_5_COMP, m_5_COMP) ; 
DDX_Check(pDX, IDC_6_C0MP, m_6_COMP) ; 
DDX_Check. (pDX, IDC_ACOG_N, m_ACOG_N) ; 
DDX_Check(pDX, IDC_ACOG_Y, m_ACOG_Y) ; 
DDX_Check(pDX, IDC_ANTIBIOTICS , m_Antibiotics) ; 



□ 

i,n 
m 
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DDX 
DDX" 
DDX" 
DDX' 
DDX" 
DDX" 
DDX" 
DDX" 
DDX" 
DDX" 
DDX" 
DDX' 
DDX" 
DDX' 
DDX' 
DDV 
DDX" 
DDX" 
DDX" 
DDX 
DDX" 
DDX" 
DDX" 
DDX" 
DDX" 
DDX" 
DDX" 
DDX' 
DDX" 
DDX' 
DDX' 
DDX" 
DDX" 
DDX' 
DDX" 
DDX' 
DDX" 
DDX" 
DDX" 
DDX 
DDX" 
DDX' 
DDX' 
DDX 
DDX 
DDX" 
DDX 
DDX 
DDX 
DDX 
DDX 
DDX" 
DDX" 
DDX 
DDX" 
DDX" 
DDX" 
DDX' 
DDV 
DDX' 
DDV 



Check (pDX, IDC_ANTIHYPER, m_AntiHyper) ; 
"check (pDX, IDC_CERV_CERCIiAGE , m_CervCerclage) ; 
"Check (pDX, IDC__CERV_FIRM, m CervFirm) ; 
"check (pDX, IDC_CERV_MOD , m_CervMod) ; 
"check (pDX, IDC_CERV_SOFT, m_CervSoft) ; 
'check (pDX, IDC_CORTICOSTEROIDS , m_Cort icosteroids ) ; 
"Check (pDX, IDC_DILITATI0N_1_2 , m__Dilitationl_2 ) 
"check (pDX, IDC_DILITATI0N_2 , m_Dili tat ion2 ) ; 
"check (pDX, IDC_DILITATION_2_3, m_Dili tat ion2_3 ) 
"check (pDX, IDC_DILITATI0N_3 , m_Dilitation3 ) ; 
"Check (pDX, IDC_DILITATI0N_GT3 , m_DilitationGt3 ) 
"check (pDX, IDC_DILITATI0N_1, m_Dilitationl) ; 
"check (pDX, IDC_DILITATION_LTl, m_DilitationLtl ) ; 
"check (pDX, IDC_DILITATION_UKN, m_DilitationUkn) ; 
^Text(pDX, IDC_EGA__AT_SAMP, m_EGAat Sample) ; 
"MaxChars (pDX , m_EGAat Sample , 10); 
■Text(pDX, IDC_EGA_BY_IiMP, m_EGAbyLiyiP) ; 
■Text(pDX, IDC_EGA_BY_SONO, m_EGAbySONO) 
'check (pDX, IDC_EO_ASIAN, m_EthnicOriginAsian) ; 
"check (pDX, IDC_EO_BLACK, m_EthnicOriginBlack) ; 
]Check{pDX, IDC_EO_HISPANIC, m__EthnicOriginHispanic) ; 
"check (pDX, IDC_EO_NATIVE__AMERICAN, m_EthnicorigiiiNativeAmerican) 
"check (pDX, IDC_EO_OTHER, m_EthnicOriginOther) ; 
"check (pDX, IDC_EO_WHITE, m_EthnicOriginWhite) ; 
'check (pDX, IDC_FFN_NEG, m_FFN_Neg) ; 
"check (pDX , IDC_FFN_POS , m_FFN_Pos ) ; 

"check (pDX, IDC_GEST_DIABETES , m_GestationalDiabetes) ; 

"check (pDX, IDC HYPERTEN_D I BORDERS , m_HypertensiveDisorders) ; 

"Check (pDX, IDC_INSULIN, m_Insulin) ; 

"Text(pDX, IDC__LAB_ID, m_LadID) ; 

^Check (pDX, IDC_MED_NONE , m_iyiedicationNone) ; 

"check (pDX, IDC_MED UKN, m_MedicationUnknown) ; 

IDC_MG_QUADS , m_Mult ipleGestat ionQuads ) ; 
IDC_MG_TRIPLETS, m_Mult ipleGestat ionTriplets) ; 
IDC_MG__TWINS , m_MultipleGestationTwins) ; 
IDC_MS_DIVORCED, m_MaritalStatusDivorced) ; 
IDC_MS_LWP, m_MaritalStatusLWP) ; 
IDC_MS_MARRIED, m_MaritalStatusMarried) ; 
IDC_MS_OTHER, m_MaritalStatusOther) ; 
IDC_MS_S INGLE , m__MaritalStatusSingle) ; 
IDC_MS_WIDOWED, m_MaritalStatusWidowed) ; 
IDC_MULT_GEST, m_Mult ipleGestat ion) ; 
IDC PATIENT COMP 1, m_PatientCompl ) ; 

m_PatientComp2 ) ; 
m_PatientComp3 ) ; 
m_PatientComp4 ) ; 
m_PatientComp5 ) ; 
_ _ _ m_PatientComp6) ; 

IDC_TOCOLYTICS, m__Tocolytics ) ; 
IDC_UT_CWRV_ABNORM, m_UtCervAbnormal ) ; 
IDC_VAGINAL_BLEEDING, m_VaginalBleeding) ; 
IDC__VB__GROSS, m_VaginalBleedingGross) ; 
IDCVB_MED, m__VaginalBleedingMed) ; 
IDC_VB_TRACE , m_VaginalBleedingTrace) ; 
m_2_C0MP_l) ; 
m_2_COMP_2) ; 
m_2_COMP_3) ; 
m ABORTIONS) ; 



Check (pDX 
Check (pDX 
Check (pDX 
Check (pDX 
Check (pDX 
Check (pDX 
Check (pDX 
"check (pDX 
"check (pDX 
"check (pDX 
Check (pDX 
'check (pDX 
"check (pDX 
Check (pDX 
"check (pDX 
"check (pDX 
Check (pDX 
"check (pDX 
"Check (pDX 
Check (pDX 
"check (pDX 
"check (pDX 
"Check (pDX 
"check (pDX 
Check (pDX 
"Text (pDX, 



IDC_PATIENT_COMP_2 , 

IDC_PATIENT_C0MP_3 , 
IDC_PATIENT_C0MP_4 , 
IDC_PATIENT_COMP_5 , 
IDC PATIENT COMP 6, 



IDC_2_C0MP 1, 
IDC_2_C0MP_2 , 
IDC__2__COMP_3 , 
IDC_ABORTIONS, 
MaxChars (pDX , m__ABORTIONS , 2 ) ; 
"TextCpDX, IDC_PARITY, m_PARITY) ; 
"MaxChars (pDX , m_PARITY , 2 ) ; 
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} 



IDC_PC1__1_3, m_PatCompl_l_3) ; 
IDC_PC1_10_12 , m_PatCompl_10_12 ) ; 
IDC_PC1_4_6 , m_PatCompl_4_6 ) ; 
IDC_PC1_7_9, m_PatCompl_7_9) ; 
IDC_PC1_GT12 , m_PatCompl__GT12) ; 
_ IDC_PC1_LT1, m_PatCompl_LTl) ; 

DDX__Text (pDX, IDC_GRAVIDITY, m_GRAVITY) ; 
DDV MaxChars (pDX, m_GRAVITY, 2) ; 
/ / } yAFX__DATA_MAP 



DDX_Check(pDX, 
DDX__Check(pDX, 
DDX__Check(pDX, 
DDX__Check(pDX, 
DDX_Check(pDX, 
DDX_Check(pDX, 



BEGIN MESSAGE MAP(CPTDInp, CDialog) 
// ( { AFX_MSG_MAP (CPTDInp) 
ON WM RBUTT5NDOWN ( ) 



i:3 

i,y 
m 
m 

13 



ON__BN 

on_bn" 
on__bn" 
on_bn" 
on_bn" 

ON BN 



CLICKED 
CLICKED 
CLICKED 
CLICKED 
CLICKED 
CLICKED 



ON_BN_CLICKED 
ON_BN_CLICKED 
ON_BN_CLICKED 
ON_BN_CLICKED 
ON_BN_CLICKED 
ON_BN_CLICKED 
ON__BN_CLICKED 
ON_BN_CLI CKED 
ON_BN_CLICKED 
ON_BN_CLICKED 
ON_BN_CLICKED 
ON_BN_CLICKED 
ON_BN_CLICKED 
ON_BN_CL I C KED 
ON_BN_CLICKED 
ON_BN_CLICKED 
ON_BN_CLICKED 
ON_BN_CLICKED 
ON_BN_CLICKED 
ON_BN_CLICKED 
ON_BN_CLICKED 
ON_BN__CLICKED 
ON_BN_CLICKED 
ON_BN_CLICKED 
ON_BN_CLICKED 
ON_BN_CLICKED 
ON_BN_CLICKED 
ON_BN_CLICKED 
ON_BN_CLICKED 
ON_BN_CLICKED 
ON_BN_CLICKED 
ON__BN_CLICKED 
ON_BN_CLICKED 
ON_BN_CL I CKED 
ON_BN_CLICKED 
ON_BN_CLICKED 
ON_BN_CLICKED 
ON_BN_CLICKED 
ON_BN_CLICKED 
ON BN CLICKED 



/ /7 } AFX_MSG_MAP 



IDC_ACOG_N, OnAcogN) 
IDC_ACOG_Y, OnAcogY) 
IDC_FFN_NEG, OnFfnNeg) 
IDC_FFN_POS , OnFf nPos ) 
IDC_MG_QUADS , OnMgQuads ) 
IDC_MG__TRIPLETS, OnMgTriplets) 
IDC_MG_TWINS , OnMgTwins ) 
IDC_MULT_GEST , OnMultGes t ) 
( IDC_DILITATION_l , OnDilitat ionl) 
IDC_DILITATI0N_1_2 , OnDilitationl2 ) 
IDC_DILITATTON_2 , OnDilitat ion2 ) 
IDC_DILITATION_2_3 , OnDilitat ion2 3 ) 
IDC__DILITATI0N_3 , OnDilitat ion3 ) 
IDC_DILITATION_GT3 , OnDilitat ionGt 3 ) 
( IDC_DILITATION_LTl , OnDilitat ionLtl ) 
(IDC_DILITATION_UKN, OnDilitationUkn) 
IDC_CERV_FIRM, OnCervFirm) 
IDC_CERV_MOD, OnCervMod) 
IDC_CERV_SOFT , OnCervSof t ) 

( IDC_VAGINAL_BLEEDING , OnVaginalBleeding) 
IDC_VB_GROSS , OnVbGros s ) 
IDC_VB_MED , OnVbMed ) 
IDC_VB__TRACE , OnVbTrace ) 
IDC_2_C0MP, On2Co!np) 
IDC_2_COMP_l , On2Compl) 
IDC_2_COMP_2 , On2Comp2 ) 
IDC_2_COMP_3 , On2Comp3) 
IDC_PATIENT_COMP_l , OnPat ientCompl ) 
IDC__PC1_1_3, OnPcll3) 
IDC_PC1_10_12, OnPcll012) 
IDC_PC1_4__6, OnPcl46) 
IDC_PC1_7_9, OnPcl7 9) 
IDC_PC1__GT12 , OnPclGtl2 ) 
IDC_PC1_LT1 , OnPclLt 1) 
IDC_EO_ASIAN, OnEoAsian) 
IDC_EO_BLACK, OnEoBlack) 
IDC_EO_HISPANIC, OnEoHispanic ) 
IDC_EO_NATIVE_AMERICAN, OnEoNat iveAmerican) 
IDC_EO_OTHER , OnEoOther ) 
IDC_EO_WHITE , OnEoWhi t e ) 
IDC_MS_DIVORCED, OnMsDivorced) 
IDC_MS_LWP, OnMsLwp) 
IDC_MS_MARRIED, OnMsMarried) 
IDC_MS_OTHER , OnMsOther ) 
IDC_MS__S INGLE , OnMsSingle) 
IDC MS WIDOWED, OnMsWidowed) 
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END_MESSAGE_iyiAP ( ) 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// CPTDInp message handlers 

BOOL CPTDInp: :OnInitDialog{) 
{ 

CDialog: lOnlnitDialog ( ) ; 

// TODO: Add extra initialization here 

//MoveWindow(0, -250, 500, 500) ; // one way to handle large 

dialogs 

return TRUE; // return TRUE unless you set the focus to 

a control 

} 

void CPTDInp: :OnRButtonDown(UINT nFlags, CPoint point) 

// TODO: Add your message handier code here and/or call default CRect 
rect ; GetWindowRect ( &rect ) ; 

CRect Desk; 

GetDesktopWindow ( ) ->GetWindowRect {&Desk) ; 
//char str [256] ; 

//sprintf (str, "t %d 1 %d b %d r %d \n t %d 1 %d b %d r %d 
// rect. top, rect. left, rect. bottom, rect. right, 
// Desk. top, Desk. left. Desk. bottom, Desk.right) ; 
//Af xMessageBox (str) ; 
if (rect. top < 0 ) { 

rect. bottom = rect. bottom - rect. top; 

rect . top = 0 ; 

Move Window (rect ) ; 
} else if (rect. bottom > Desk, bottom) { 

rect. top = Desk. bottom - 3 - (rect. bottom - rect. top); 

rect. bottom = Desk. bottom 3; 

MoveWindow (rect) ; 

} 

CDialog: :OnRButtonDown (nFlags , point) ; 



void CPTDInp : : OnAcogN ( ) 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_ACOG_N) { 

m ACCOG Y = FALSE; 

} 

// update dialog with new data 
UpdateData ( FALSE ) ; 



void CPTDInp: :OnAcogY() 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m ACOG Y) ( 
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tn ACOG N = FALSE; 
} " " 

// update dialog with new data 
UpdateData(FALSE) ; 



} 



void CPTDInp : : OnFf nNeg ( ) 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_FFN_Neg) { 

m FFN POS = FALSE; 

} " ~ 

// update dialog with new data 
r3 UpdateData (FALSE) ; 

h . 

!.y void CPTDInp : : OnFf nPos ( ) 

ly { 

\n // get current values from dialog 

UpdateData ( TRUE ) ; 

if (m_FFN_Pos) { 
i;3 m_FFN_Neg = FALSE; 

} 

; // update dialog with new data 

i*'^ UpdateData ( FALSE ) ; 



13 

m } 



void CPTDInp : : OnMgQuads ( ) 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_multipleGestationQuads) { 

m_MultipleGestation = TRUE; 

m_MultipleGestationTwins = FALSE; 

m_MultipleGestationTriplets = FALSE; 
} else ( 

if (m_MultipleGestationTwins ++ FALSE && 

m__MultipleGestationTriplets == FALSE ) { 
m_MultipleGe Stat ion = FALSE; 

) ' " 

// update dialog with new data 
UpdateData (FALSE) ; 

} 

void CPTDInp : : OnLMgTriplets ( ) 

// get current values from dialog 
UpdateData (TRUE) ; 
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if (m_MultipleGestationTriplets) { 

m_MultipleGestation = TRUE; 

Tn_MultipleGestationQuads = FALSE; 

m MultipleGestationTwins = FALSE; 
} else X 

if ( m_MultipleGestationQuads == FALSE && 

m_MultipleGestationTwins == FALSE ) { 
in_MuItipleGestation = FALSE; 

// update dialog with new data 
UpdateData(FALSE) ; 

} 

void CPTDInp : : OriMgTwins ( ) 

// get current values from dialog 
UpdateData(TRUE) ; 

if (m_MultipleGestationTwins) { 

m_MultipleGestation = TRUE; 

m_MultipleGestationQuads = FALSE; 

m_MultipleGestationTriplets = FALSE; 
} else ( 

if ( m_MultipleGestationQuads == FALSE && 

m_MultipleGestationTriplets == FALSE ) { 
m_MultipleGestation = FALSE; 

} ^ 



// update dialog with new data 
UpdateData (FALSE) ; 



} 



void CPTDInp: :OnMultGest 0 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_MultipleGestation) { 
}else { 

if ( ( (CPTDinpApp*) AfxGetApp 0 ) - >ClearSubf ields) 
m_MultipleGestationQuads = FALSE; 
m_MultipleGestationTriplets = FALSE; 
m_MultipleGestationTwins = FALSE; 

// update dialog with new data 
UpdateData (FALSE) ; 

} 

void CPTDInp: :OnDilitationl 0 

// get current values from dialog 
UpdateData (TRUE) ; 



-20- 



if (m_Dilitationl) { 

m_Dilitationl_2 = FALSE; 
m_Dilitation2 = FALSE; 
m_Dilitation2_3 = FALSE; 
Tn_Dilitation3 = FALSE; 
m DilitationGt3 = FALSE; 
/7Tn_Dilitationl = FALSE; 
m_DilitationLtl = FALSE; 
m Dili tat ionUkn = FALSE; 

} 

// update dialog with new data 
UpdateData( FALSE) ; 



} 



void CPTDInp: :OnDilitationl2 () 



{ 



// get current values from dialog 
UpdateData(TRUE) ; 

if (m_Dilitationl_2 ) { 

//m_Dilitationl_2 = FALSE; 
m_Dilitation2 = FALSE; 
m_Dilitation2_3 = FALSE; 
m_Dilitation3 = FALSE; 
m_DilitationGt3 = FALSE; 
m^Dilitationl = FALSE; 
m DilitationLtl 



} 



FALSE; 

m DilitationUkn = FALSE; 



// update dialog with new data 
UpdateData (FALSE) ; 



} 



void CPTDInp: :OnDilitation2 0 

// get current values from dialog 
UpdateData (TRUE) ; 



if (m_Dilitation2) 

m Dili tat ionl_2 = FALSE; 
/7ni_Dilitation2 = FALSE; 
m_Dilitation2_3 = FALSE; 
m_Dilitation3 = FALSE; 
m_DilitationGt3 = FALSE; 
m__Dilitationl + FALSE; 
m_DilitationLtl = FALSE; 
m DilitationUkn = FALSE; 

} 

// update dialog with new data 
UpdateData (FALSE) ; 



} 



void CPTDInp: :OnDilitation23 () 
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// get current values from dialog 
UpdateData(TRUE) ; 

if (m__Dilitation2_3) { 

m_Dilitationl_2 = FALSE; 
m Dilitation2 = FALSE; 
/7m_Dilitation2_3 = FALSE; 
m__DI-litation3 = FALSE; 
m_DilitationGt3 = FALSE; 
m_Dilitationl = FALSE; 
m_DilitationLtl = FALSE; 
m DilitationUkn = FALSE; 

} 

// update dialog with new data 
UpdateData(FALSE) ; 

} 

void CPTDInp: :0nDilitation3 0 



{ 



// get current values from dialog 
UpdateData (TRUE) ; 

if (m_Dilitation3) { 

m_Dilitationl_2 = FALSE; 

m_Dilitation2 = FALSE; 

m Dili tat ion2_3 = FALSE; 

/7m_Dilitation3 = FALSE; 

m__DilitationGt3 = FALSE; 

m_Dilitationl = FALSE; 

m_DilitationLtl = FALSE; 

m DilitationUkn = FALSE; 

} 

// update dialog with new data 
UpdateData (FALSE) ; 



} 



void CPTDInp: :OnDilitationGt3 {) 



{ 



// get current values from dialog 
UpdateData (TRUE) ; 

if (m_DilitationGt3) { 

m-Dilitationl_2 = FALSE; 
m_Dilitation2 = FALSE; 
m_Dilitation2_3 = FALSE; 
m Dilitation3 = FALSE; 
/7m__DilitationGt3 = FALSE; 
m_Dilitationl = FALSE; 
m__DilitationLtl = FALSE; 
m DilitationUkn = FALSE; 

} 

// update dialog with new data 
UpdateData (FALSE) ; 
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void CPTDInp : rOnDilitationLtl ( ) 

// get current values from dialog 
UpdateData(TRUE) ; 

if (m_DilitationLtl) { 

m_Dilitationl_2 = FALSE; 
m_Dilitation2 = FALSE; 
m_Dilitation2_3 = FALSE; 
m_Dilitation3 = FALSE; 
m_DilitationGt3 = FALSE; 
m Dilitationl = FALSE; 
/7m_DilitationLtl = FALSE; 
m DilitationUkn = FALSE; 

} 

// update dialog with new data 
UpdateData(FALSE) ; 

} 

void CPTDInp: : OnDilitationUkn { ) 

// get current values from dialog 
UpdateData(TRUE) ; 

if (m_DilitationUkn) 

m_Dilitationl_2 = FALSE; 
m_Dilitation2 = FALSE; 
m_Dilitation2_3 = FALSE; 
m_Dilitation3 = FALSE; 
m_DilitationGt3 = FALSE; 
m__Dilitationl = FALSE; 
m DilitationLt 1= FALSE; 
//m DilitationUkn = FALSE; 

} 

// update dialog with new data 
UpdateData(FALSE) ; 

} 

void CPTDInp: : OnCervFirm ( ) 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m__CervFirm) { 

m_CervMod = FALSE; 
m CervSoft = FALSE; 



// update dialog with new data 
UpdateData (FALSE) ; 



} 

void CPTDInp: :OnCervMod() 

// get current values from dialog 
UpdateData (TRUE) ; 
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if (m_CervMod) { 

m__CervFirm = FALSE; 
m CervSoft = FALSE; 



// update dialog with new data 
UpdateData(FALSE) ; 



} 



void CPTDInp : : OnCervSof t ( ) 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_CervSoft) { 

m_CervMod = FALSE; 
m CervFirm = FALSE; 

} 



i.y } 



// update dialog with new data 
UpdateData (FALSE) ; 



jl^ void CPTDInp : : OnVaginalBleeding ( ) 

M // get current values from dialog 

□ UpdateData (TRUE) ; , 

j ^ if (m_VaginalBleeding) { 

n } ®lse { 

i'*^-* if ( ( (CPTDinpApp*) AfxGetApp () ) - >ClearSubf ields) { 

113 m_VaginalBleedingGross = FALSE; 

|»|J m__VaginalBleedingMed = FALSE; 

m_VaginalBleedingTrace = FALSE; 



// update dialog with new data 
UpdateData (FALSE) ; 



} 



void CPTDinp: rOnVbGross 0 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_VaginalBleedingGross) { 

m_VaginalBleeding = TRUE; 

m_VaginalBleedingMed = FALSE; 

m VaginalBleedingTrace = FALSE; 
} else ~{ 

if (m_VaginalBleedingMed == FALSE && 

m_VaginalBleedingTrace == FALSE ) { 
m_VaginalBleeding = FALSE; 

} ^ 

// update dialog with new data 
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UpdateData(FALSE) ; 

} 

void CPTDInp : : OnVbMed ( ) 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_VaginalBleedingMed) { 

m_VaginalBleedingGross = FALSE; 

m_VaginalBleeding = TRUE; 

m_VaginalBleedingTrace = FALSE; 
} else { 

if (m_VaginalBleedingGross == FALSE && 

m_VaginalBleedingTrace ++ FALSE ) { 
m_VaginalBleeding = FALSE; 

□ } 

pa, // update dialog with new data 

UpdateData (FALSE) ; 

,y } 

void CPTDInp : : OnVbTrace ( ) 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m^VaginalBleedingTrace) { 

m_VaginalBleedingGross = FALSE; 
m_VaginalBleedingMed = FALSE; 
J3 m VaginalBleeding = TRUE; 

} else X 

if (m_VaginalBleedingMed == FALSE 

m_VaginalBleedingGross == FALSE ) { 
m_VaginalBleeding = FALSE; 

} ^ 

// update dialog with new data 
UpdateData (FALSE) ; 

} 

void CPTDInp: :On2Comp() 

// get current values from dialog 
UpdateData (TRUE) ; 

if(m_2_C0MP) { 
} else { 

if ( ( (CPTDinpApp*) AfxGetApp () ) - >ClearSubf ields) { 
m_2_C0MP_l = FALSE; 
m_2_COMP_2 = FALSE; 
m 2 COMP 3 = FALSE; 

, 1 -- - 

// update dialog with new data 
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UpdateData (FALSE) ; 

} 

void CPTDInp : : On2Compl ( ) 

{ 

/ / get current values from dialog 
UpdateData (TRUE) ; 

if (m_2__COMP_l) { 

m_2_COMP = TRUE; 
m_2_COMP_2 = FALSE; 
m 2_COMP_3 = FALSE ; 
} else X 

if (m_2_COMP == 2 - FALSE && 

m_2_COMP_3 == FALSE ) { 
m 2 COMP = FALSE; 

1:3 } 



W 

lU } 



// update dialog with new data 
UpdateData (FALSE) ; 



void CPTDInp: :on2Comp2 () 

// get current values from dialog 
;3 UpdateData (TRUE) ; 

, if (m_2_COMP_2) { 

m_2_COMP = TRUE; 
'"^ m_2_COMP_l = FALSE; 

3 m 2__COMP_3 = FALSE; 

} else X 

if (m_2_COMP_l == FALSE && 

m__2_COMP__3 == FALSE ) { 
m 2 COMP = FALSE; 



// update dialog with new data 
UpdateData (FALSE) ; 



} 



void CPTDInp : : on2Comp3 ( ) 

/ / get current values from dialog 
UpdateData (TRUE) ; 

if (m_2_COMP__3) { 

m__2_COMP = TRUE; 
m_2_COMP 2 = FALSE; 
m 2_COMP_l = FALSE; 
} else X 

if (m_2_COMP_2 == FALSE && 

m_2_COMP_l == FALSE ) { 
m 2 COMP = FALSE; 
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// update dialog with new data 
UpdateData(FALSE) ; 



} 



void CPTDInp: rOnPatientCompl 0 

// get current values from dialog 
UpdateData(TRUE) ; 

if (m^PatientCompl) { 
} else { 

if ( ( (CPTDinpApp*) AfxGetApp 0 ) - >ClearSubf ields) { 

Tn_PatCOTnpl_LTl - FALSE; 

m_PatCompl_l_3 = FALSE; 

m_PatCompl_4_6 = FALSE ; 

ni_PatCotnpl_7_9 = FALSE; 

m_PatCompl_10_12 = FALSE; 

j!^ m_PatCompl GT12 = FALSE; 



// update dialog with new data 
UpdateData(FALSE) ; 



} 



void CPTDInp: :OnPcll3 () 

\j // get current values from dialog 

UpdateData(TRUE) ; 

□ if (m_PatCompl__l_3) { 

I'U m_PatCompl_LTl = FALSE; 

m^PatientCompl = TRUE; 

m_PatCompl_4_6 = FALSE; 

m_PatCompl_7_9 = FALSE; 

m_PatCompl_10_12 = FALSE; 

m PatCompl_GT12 = FALSE; 
} else J 

if {m_PatCompl_LTl == FALSE && 

m_PatCompl_l_3 == FALSE && 
m_PatCompl_4_6 == FALSE && 
m_PatCompl_7_9 == FALSE && 
m_PatCompl_10_12 == FALSE 
m_PatCompl_GT12 == FALSE ) { 
m_PatientCompl = FALSE; 

} ^ 



// update dialog with new data 
UpdateData (FALSE) ; 



} 



void CPTDInp: :OnPcll012 0 

// get current values from dialog 
UpdateData (TRUE) ; 
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if (m_PatCompl_10_12) { 

m_PatCompl_LTl = FALSE 

m_PatCoTnpl_l_3 = FALSE 

m_PatCompl_4_6 = FALSE 

m_PatCompl_7_9 = FALSE 

m_PatientCompl = TRUE; 
m PatCompl_GT12 = FALSE 

} else "f 



if (m_PatCompl_LTl == FALSE && 

m_PatCompl_l_3 = FALSE && 
m_PatCompl_4_6 == FALSE && 
m_PatCoTnpl_7_9 == FALSE 
m_PatCompl_10_12 == FALSE && 
m__PatCompl_GT12 == FALSE ) { 
m_PatientCompl = FALSE; 

// update dialog with new data 
UpdateDat a ( FALSE ) ; 



void CPTDInp: :OnPcl4 6 0 

// get current values from dialog 
UpdateDat a (TRUE) ; 

if (m_PatCompl__4_6) { 

m_PatCompl_LTl = FALSE; 

m_PatCompl_l_3 = FALSE; 

m_PatientCompl = TRUE; 

Tn_PatCompl_7_9 = FALSE; 

m_PatCoinpl_10_12 = FALSE; 

m PatCoinpl_GT12 = FALSE; 
} else X 

if (m_PatCompl_LTl == FALSE 

m_PatCompl_l_3 == FALSE && 
m_PatCompl_4_6 == FALSE && 
m_PatCompl_7_9 FALSE && 
m_PatCofnpl_10_12 == FALSE && 
m_PatCoinpl_GT12 == FALSE ) { 
m_PatientCompl = FALSE; 



// update dialog with new data 
UpdateDat a (FALSE) ; 

} 

void CPTDInp : :OnPcl7 9 0 

// get current values from dialog 
UpdateData(TRUE) ; 

if (m_PatCompl_7_9) { 

m_PatCompl_LTl = FALSE; 

m_PatCompl__l_3 = FALSE ; 

m_PatCompl_4__6 = FALSE ; 
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m_PatientCompl = TRUE; 
m_PatCompl_10_12 = FALSE; 
m PatCompl_GT12 = FALSE; 
} else J 

if (m_PatCompl_LTl == 
m_Pa t Comp 1_1_3 
m_PatCompl_4_6 
m_PatCompl_7_9 == FALSE && 
m_PatCompl_10_12 == FALSE && 
m__PatCompl_GT12 == FALSE ) { 

m_PatientCompl - FALSE; 



FALSE ScSc 

= = FALSE ScSc 

= = FALSE ScSc 



} 



} 



// update dialog with new data 
UpdateData (FALSE) ; 



b 
m 

lip 

w 

i,n 

m 

h 



m 



} 



void CPTDInp: :0nPclGtl2 0 



{ 



// get current values from dialog 
UpdateData (TRUE) ; 



FALSE 
FALSE 



if (m_PatCompl_GT12 ) { 
m_PatCompl_LTl = 
m_PatCompl_l_3 = 
m_PatCompl_4_6 = FALSE; 
m_PatCompl_7_9 = FALSE; 
m__PatCompl_10_12 = FALSE; 
m PatientCompl = TRUE; 
} else "C 

if (m_PatCompl_LTl == FALSE && 

tn_PatCompl_l_3 == FALSE ScSc 
in_PatCompl_4_6 == FALSE ScSc 
in_PatCompl_7_9 == FALSE ScSc 
m_PatCompl_10_12 == FALSE && 
Tn_PatCompl__GT12 == FALSE ) { 
m_PatientCompl = FALSE; 



} 



} 



// update dialog with new data 
UpdateData (FALSE) ; 



} 



void CPTDInp: rOnPclLtl 0 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_PatCompl_LTl ) { 

m_PatientCompl = TRUE; 
m_PatCompl__l_3 = FALSE 
m_PatCompl_4_6 = FALSE 
m_PatCompl_7_9 = FALSE 
m_PatCompl_10_12 = FALSE; 
m PatCompl-GT12 = FALSE; 

} else J 

if (m_PatCompl_LTl == FALSE 
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m_PatCompl_l_3 == FALSE && 
m__PatCompl__4_6 == FALSE && 
m_PatCompl_7_9 == FALSE 
m_PatCompl_10_12 == FALSE 
m__PatCompl_GT12 == FALSE ) { 
m_PatientCompl = FALSE; 



7/ update dialog with new data 
UpdateData(FALSE) ; 

} 

void CPTDInp : : OnEoAsian ( ) 

#ifdef NOT 

// get current values from dialog 
UpdateData(TRUE) ; 

if (m_EthnicOriginAsian) { 

//Tn_EthnicOriginAsian = FALSE; 
m_EthnicOriginBlack = FALSE; 
tn_EthnicOriginHispanic = FALSE; 
m_EthnicOriginNativeAmerican = FALSE; 
m_EthnicOriginOther = FALSE; 
m_EthnicOriginWhite = FALSE; 



// update dialog with new data 
UpdateData(FALSE) ; 

#endif 
} 

void CPTDInp : : OnEoBlack { ) 
{ 

ttifdef NOT 

// get current values from dialog 
UpdateData{TRUE) ; 

if (m_EthnicOriginBlack) { 

m EthnicOriginAsian = FALSE; 
/7m_EthnicOriginBlack = FALSE; 
m_EthnicOriginHispanic = FALSE; 
m_EthnicOriginNativeAmerican = FALSE; 
m_EthnicOriginOther = FALSE; 
n_EthnicOriginWhite = FALSE; 



// update dialog with new data 
UpdateData(FALSE) ; 

ttendif 
} 

void CPTDInp: rOnEoHispanic () 

ttifdef NOT 

// get current values from dialog 
UpdateData(TRUE) ; 

if (m_EthnicOriginHispanic) { 

m_EthnicOriginAsian = FALSE; 
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m EthnicOriginBlack = FALSE; 
/7n!_EthnicOriginHispanic = FALSE; 
m__EthnicOriginNativeAmerican = FALSE; 
m_EthnicOriginOther = FALSE; 
m EthnicOriginWhite = FALSE; 

} 

// update dialog with new data 
UpdateData(FALSE) ; 

#endif 
} 

void CPTDInp: lOnEoNativeAmerican ( ) 
{ 

,#ifdef NOT 

// get current values from dialog 
UpdateData(TRUE) ; 

if (m_EthnicOriginNativeAtnerican) { 
m_EthnicOriginAsian = FALSE; 
m_EthnicOriginBlack = FALSE; 
m EthnicOriginHispanic = FALSE; 
/7ni_EthnicOriginNativeAmerican = FALSE 
m_EEhnicOriginOther = FALSE; 
m_EthnicOriginWhite = FALSE; 

// ate dialog with new data 
UpdateData (FALSE) ; 

#endif 
} 

void CPTDInp: :OnEoOther() 

#ifdef NOT 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_EthnicOriginOther) { 

m_EthnicOriginAsian = FALSE; 
m_EthnicOriginBlack = FALSE; 
m_EthnicOriginHispanic = FALSE; 
m EthnicOriginNativeAmerican = FALSE; 
/7in_EthnicOriginOther = FALSE; 
m_EthnicOriginWhite = FALSE; 

// update dialog with new data 
UpdateData (FALSE) ; 

#endif 
} 

void CPTDInp : : OnEowhi te ( ) 
{ 

ttifdef NOT 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_EthnicOriginWhite) { 

m_EthnicOriginAsian = FALSE; 
m__EthnicOriginBlack .= FALSE; 
m_EthnicOriginHispanic = FALSE; 
m_EthnicOriginNativeAmerican = FALSE; 
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m_EthnicOriginOther = FALSE; 
//m_EthnicOriginWhite = FALSE; 



// update dialog with new data 
UpdateData (FALSE) ; 

ttendif 
} 

void CPTDInp : : OnLMsDivorced { ) 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_MaritalStatusDivorced) { 

//m_MaritalStatusDivorced = FALSE; 
m__MaritalStatusLWP = FALSE; 
m_MaritalStatusMarried = FALSE; 
m_MaritalStatusOther = FALSE; 
m_MaritalStatusSingle = FALSE; 
m MaritalStatusWidowed = FALSE; 

} 

// update dialog with new data 
UpdateData (FALSE) ; 



void CPTDInp : : OnMsLwp ( ) 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_MaritalStatusLWP) { 

m MaritalStatusDivorced = FALSE; 
/7m_MaritalStatusLWP = FALSE; 
m_MaritalStatusMarried = FALSE; 
m_MaritalStatusOther = FALSE; 
m_MaritalStatusSingle = FALSE; 
m_MaritalStatusWidowed = FALSE; 



// update dialog with new data 
UpdateData (FALSE) ; 



void CPTDInp: lOnMsMarriedO 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_MaritalStatusMarried) { 

m_MaritalStatusDivorced = FALSE; 
m_MaritalStatusLWP = FALSE; 
//m_MaritalStatusMarried = FALSE; 
m_MaritalStatusOther = FALSE; 
m_MaritalStatusSingle = FALSE; 
m MaritalStatusWidowed = FALSE; 

} 

// update dialog with new data 
UpdateData (FALSE) ; 
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} 

void CPTDInp : : OnMsOther ( ) 

// get current values from dialog 
UpdateData(TRUE) ; 

if (m_MaritalStatusOther) { 

m_MaritalStatusDivorced = FALSE; 
m_iyiaritalStatusLWP = FALSE; 
m MaritalStatusMarried = FALSE; 
/7ni_MaritalStatusOther = FALSE; 
m__MaritalStatusSingle = FALSE; 
tn MaritalStatusWidowed = FALSE; 

} 

// update dialog with new data 
UpdateData(FALSE) ; 



void CPTDInp: lOnMsSingle {) 

// get current values from dialog 
UpdateData(TRUE) ; 

if (m^MaritalStatusSingle) { 

m_MaritalStatusDivorced = FALSE; 
m__MaritalStatusLWP = FALSE; 
m_MaritalStatusMarried = FALSE; 
m MaritalStatusOther = FALSE; 
/7tn_MaritalStatusSingle = FALSE; 
m_MaritalStatusWidowed = FALSE; 



// update dialog with new data 
UpdateData (FALSE) ; 



void CPTDInp: :OnMsWidowed ( ) 

// get current values from dialog 
UpdateData (TRUE) ; 

if (m_MaritalStatusWidowed) { 

m_MaritalStatusDivorced = FALSE; 
m_MaritalStatusLWP = FALSE; 
m_MaritalStatusMarried = FALSE; 
m_MaritalStatusOther = FALSE; 
m^MaritalStatusSingle = FALSE-; 
//m_MaritalStatusWidowed = FALSE; 



// update dialog with new data 
UpdateData (FALSE) ; 



void CPTDInp: :OnOK() 



double val; 
char str [32] ; 
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char *ps; 
int m, d, y; 

UpdateData(TRUE) ; 

// Check the Date of Birth field 
// parse the data from mm/dd/yyyy 

s t r cpy ( s t r , in_DATE_OF_BIRTH ) ; 

m = atoi (str) / 

if ( m < 1 II m > 12) { 

AfxMessageBox ( "Please enter date in mm/dd/yy format. Month out 

of range") ; 

return; 

} 

ps = strchr (str , ' / ' ) ; 
if ( ps == NULL ) { 

AfxMessageBox ("Please enter date in mm/dd/yy format."); 
|;3 return; 
II } else { 

ps++ ; 

.'•"^ d = atoi (ps) ; 

m if ( d < 1 II d > 31 ) { 

i,!L| AfxMessageBox' ( "Please enter date in mm/dd/yy format. Day 

out of range " ) ; 

return; 

} ^ 

ps = strchr (ps, '/'); 
i^^ if ( ps == NULL ) { 

j AfxMessageBox ("Please enter date in mm/dd/yy format."); 

return ; 
} else { 
ry ps++; 

y = atoi (ps) ; 
if ( y. < 30 ) y += 2000; 
^ if ( y < 99 ) y += 1900; 

// Check all boxes that are used by the network 
if ( 

m_EthnicOriginAsian == FALSE && 
m_EthnicOriginBlack == FALSE && 
m_EthnicoriginHispanic == FALSE && 
m_EthnicOriginNativeAmerican == FALSE && 
m_EthnicOriginOther == FALSE && 
m_EthnicOriginWhite == FALSE 



13 i 

m 



) { 
} 

if ( 



) { 



AfxMessageBox ("Please make selection for Ethnic Origin"); 
return; 



m_MaritalStatusDivorced == FALSE && 
m_MaritalStatusLWP == FALSE &&■ 
m__MaritalStatusMarried == FALSE && 
m_MaritalStatusOther == FALSE && 
m_MaritalStatusSingle == FALSE && 
m MaritalStatusWidowed == FALSE 
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AfxMessageBox ("Please make selection for Marital Status") ; 
return; 

} 

if ( 

m_CervFirm == FALSE 
m__CervMod == FALSE && 
m CervSoft == FALSE 

) { 

// AfxMessageBox ("Please make selection for Cervical 
Consistancy" ) ; 

//return; 

} 

if ( 

m_Dilitationl_2 == FALSE ScSc 
m_Dilitation2 == FALSE && 
m_Dilitation2_3 == FALSE && 
m_Dilitation3 == FALSE && 
m_DilitationGt3 == FALSE && 
m_Dilitationl == FALSE && 
m_DilitationLtl == FALSE && 
m DilitationUkn == FALSE 

) { 

AfxMessageBox ("Please make selection for Dilatation") ; 
return; 

} 

if ( 

in_FFN_Neg == FALSE && 
m PEN Pos == FALSE 
) { " " 

AfxMessageBox ("Please make selection for fFN Result"); 
return ; 

} 

val = (double) atof (m_EGAbySONO) ; 
if{ val == 0.0 ) { 

AfxMessageBox ("Please enter value for EGA by SONO") ; 

return; 

if( val < 24.0 II val > 45.0 ) { 

AfxMessageBox ("Value for EGA by SONO must be between 24.0 and* 
45.0 weeks") ; 

return; 

} 

val = (double) atof (m_EGAbyLMP) ; 
if (val == 0.0 ) { 

AfxMessageBox ("Please enter value for EGA by LMP"); 

return; 

if( val < 24.0 II val > 45.0 ) { 

AfxMessageBox ( "Value for EGA by LMP must be between 24.0 and 
45 . 0 weeks" ) ; 

return; 

} 

val = (double) atof (m_EGAat Sample ) ; 
if ( val == 0.0 ) { 

AfxMessageBox ("Please enter value for EGA at Sample"); 
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return; 

if( val < 24.0 II val > 45.0 ) { 

AfxMessageBox ("Value for EGA at Sample must be between 24.0 
and 45.0 weeks") ; 

return; 

} 

strcpy (str,m_GRAVITY) ; 
if(str[0] == 0 ) { 

AfxMessageBox ("Please enter value for Gravity"); 

return; 

} 

strcpy ( St r, m_PARITY) ; 
if( str[0] == 0 ) { 

AfxMessageBox ("Please enter value for Parity"); 
hrA return; 

□ } 

'i; strcpy (str,m_ABORTIONS) ; 

:'h if( str[0] == 0 ) { 

IjJ AfxMessageBox ("Please enter value for Abortions"); 

i|:J return; 

m > 

if (m_2_COMP == TRUE 
M m_2_C0MP_l == FALSE && 

i;3 m_2_COMP_2 FALSE && 

j,^ m_2_COMP_3 == FALSE ) { 

I , AfxMessageBox ("Please make selection under History of Preterm 

f*^ Delivery") 

□ } 



return; 



Gestation" ) 

} 



if (m_VaginalBleedingMed == FALSE && 

m_VaginalBleedingGross == FALSE && 
m_VaginalBleeding == TRUE && 
m_VaginalBleedingTrace == FALSE ) { 

AfxMessageBox ("Please make selection under Vaginal Bleeding") 
return; 

} 

if (m_MultipleGestation == TRUE 

m_MultipleGestationQuads == FALSE && 
m_MultipleGestationTriplets == FALSE && 
m_MultipleGestationTwins == FALSE ) { 

AfxMessageBox ("Please make selection under Multiple 



return; 



if (m__PatientCompl == TRUE 

m_PatCompl-LTl == FALSE 
m_PatCompl_l_3 == FALSE && 
m__PatCompl_4__6 == FALSE 
m_PatCompl_7_9 == FALSE 
m_PatCompl_10_12 == FALSE 
m_PatCompl_GT112 == FALSE ) { 

AfxMessageBox ("Please select Number/hr under Uterine 
contractions") ; 
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return ; 

} 

CDialogr :OnOK() ; 



// PTDDgll.h 

// 



header file 



m 
a 

m 
m 



u 

ru 



/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 

// CPTDInp dialog 

class CPTDInp : public CDialog 

// Construction . 
public : 

CPTDInp (CWnd* pParent = NULL) ; 



// standard constructor 



// Dialog Data 

/ / { { AFX_DATA ( CPTDInp ) 

enum { IDD = IDD_D_PTD_INP } ; 

est ring m_DATE_OF_BIRTH ; 

est ring m_NAME_F; 

CString Tn_NAME_L; 

CString m,_NAME_MI; 

BOOL m_l_COMP ; 

BOOL m_2_C0MP ; 

BOOL m_3_C0MP; 

BOOL tn_4__COMP; 

BOOL m_5_COMP; 

BOOL m_6_COMP; 

BOOL m_ACOG_N; 

BOOL m_ACOG_Y; 

BOOL m_Antibiotics; 

BOOL Tn_Ant iHype r ; 

BOOL m_CervCerclage ; 

BOOL m_CervFirm; 

BOOL m_CervMod/ 

BOOL m__CervSof t ; 

BOOL m_Corticosteroids ; 

BOOL m_Dilitationl__2 ; 

BOOL m_Dilitation2 ; 

BOOL m_Dilitation2_3 / 

BOOL m_Dilitation3 ; 

BOOL m_DilitationGt3 ; 

BOOL m_Dilitationl ; 

BOOL m_Di 1 i t at ionLt 1 ; 

BOOL m_Di 1 i t at i onUkn ; 

CString m_EGAa t S ample ; 

CString m_EGAbyLMP; 

CString m_EGAbySONO ; 

BOOL m_EthnicOriginAsian; 

BOOL m_EthnicOriginBlack; 

BOOL m_EthnicoriginHispanic ; 

BOOL m_EthnicoriginNativeAmerican; 

BOOL m_EthnicOriginOther ; 
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m 

m 
m 

:} 

• ISA 

m 



BOOL 

BOOL 

BOOL 

BOOL 

BOOL 

BOOL 

CString 

BOOL 

BOOL 

BOOL 

BOOL 

BOOL 

BOCL 

BOOL 

BOOL 

BOOL m 

BOOL 

BOOL 

BOOL 

BOOL 

BOOL 

BOOL 

BOOL 

BOOL 

BOOL 

BOOL 

BOOL 

BOOL 

BOOL 

BOOL 

BOOL 

BOOL 

BOOL 

BOOL 

CString 

CString 

BOOL 

BOOL 

BOOL 

BOOL 

BOOL 

BOOL 

CString 

//}}AFX 



m_EthnicOriginWhite ; 
m_FFN_Neg ; 
in_FFN_Pos ; 

m_GestationalDiabetes ; 
m_HypertensiveDisorders ; 
m_Insulin; 
m_LadID; 

m_MedicationNone ; 
m_Me d i c a t i o nUnkno vm ; 
m_MultipleGestationQuads ; 
m_MultipleGestationTriplets ; 
m_MultipleGestationTwins ; 
m_MaritalStatusDivorced; 
m_MaritalStatusLWP; 
m_MaritalStatusMarried; 
MaritalStatusOther; 

m_MaritalStatusSingle ; 
Tn_MaritalStatusWidowed; 
m_MultipleGestation; 
m_PatientCoinpl j 
m_PatientComp2 j 
m_PatientComp3 j 
m_PatientComp4 ; 
m_PatientComp5 ; 
m_PatientCoTnp6 ; 
m_Tocolytics ; 
m_UtCervAbnormal ; 
m__VaginalBleeding ; 
m_VaginalBleedingGross ; 
m_VaginalBleedingMed ; 
m_VaginalBleedingTrace ; 
m_2_COMP_l; 
m_2_COMP_2 ; 
m_2_COMP_3 ; 
m_ABORTIONS ; 
m_PARITY; 
m_PatCompl_l__3 ; 
m_PatCompl_10_12 ; 
m_PatCompl__4_6 ; 
m_PatCompl_7_9 ; 
m_PatCompl_GT12 ; 
m_PatCompl_LTl ; 
m_GRAVITY; 

DATA 



Implement at ion 
protected : 

virtual void DoDataExchange (CDataExchange* pDX) ; 



// DDX/DDV support 



// Generated message map functions 
// { {AFX_MSG (CPTDInp) 



virtual 




BOOL OnlnitDialog ( ) ; 


afx_msg 


void 


OnRButtonDovm(UINT nFlags, CPoint point) ; 


af x_msg 


void 


OnAcogN ( ) ; 


afx_msg 


void 


OnAcogY ( ) ; 


afx_msg 


void 


OnFf nNeg ( ) ; 


afx_msg 


void 


OnFf nPos ( ) ; 


af x_msg 


void 


OnMgQuads ( ) ; 


af x_msg 


void 


OnMgTriplets {) ; 


af x_msg 


void 


OnMgTwins ( ) ; 


af x_msg 


void 


OnMultGest () ; 
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af x_msg 


void 


OnDilitationl ( ) ; 


af x_msg 


void 


OnDilitationl2 () ; 


af x_msg 


void 


OriDilitation2 () ; 


af x_msg 


void 


OnDilitation23 () ; 


af x_msg 


void 


OnDilitationS () ; 


af x_msg 


void 


OnDilitationGt3 () ; 


af x_msg 


void 


OnDilitationLtl () ; 


af x_msg 


void 


OnDilitationUknO ; 


af x_msg 


void 


OnCervFirm { ) ; 


afx msg 


void 


OnCervMod ( ) ; 


afx msg 


void 


OnCervSof t ( ) ; 


afx msg 


void 


OnVaginalBleeding ( ) ; 


afx msg 


void 


OnVbGross () ; 


afx msg 


void 


OnVbMed ( ) ; 
OnVbTrace ( ) ; 


afx msg 


void 


afx msg 


void 


On2Comp ( ) ; 


afx msg 


void 


On2Compl ( ) ; 


afx msg 


void 


On2Comp2 ( ) ; 


afx_msg 


void 


On2Comp3 {) ; 


afx msg 


void 


OnPatientCompl () ; 


afx msg 


void 


OnPcll3 () ; 


afx msg 


void 


OnPcll012 {) ; 


afx msg 


void 


OnPcl46 () ; 


af x_msg 


void 


OnPcl79 0 ; 


afx msg 


void 


OnPclGtl2 ( ) ; 


afx msg 


void 


OnPclLtl 0 ; 


virtual 


void 


OnOK ( ) ; 


afx msg 


void 


OnEoAsian() ; 


af x_msg 


void 


OnEoBlack ( ) ; 


af x_msg 


void 




afx_msg 


void 


OnEoNativeAmerican ( ) 


afx_msg 


void 


OnEoOther ( ) ; 


afx_msg 


void 


OnEoWhite () ; 


afx_msg 


void 


OnMsDivorced { ) ; 


afx_msg 


void 


OnMsLwp ( ) ; 


afx_msg 


void 


OnMsMarried ( ) ; 


afx__msg 


void 


OnMsOther ( ) ; 


afx_msg 


void 


OnMsSingle () ; 


afx msg 


void 


OnEoWidowed ( ) ; 


//}yAFX MSG 






DECLARE MESSAGE MAP ( ) 




}; 







// ptdgoto.cpp : implementation file 

/ 

ttinclude " stdaf x . h" 
#include "ptdinp.h" 
#include "ptdgoto.h" 

#ifdef DEBUG 
#undef THIS_FILE 

static char BASED_CODE THIS_FILE[] = FILE; 
#endif 
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/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 

// CPtdGoto dialog 

CPtdGotO: :CPtdGoto(CWnd* pParerit /*=NULL*/) 
: CDialog (CPtdGoto :: IDD, pParent) 

// { {AFX_DATA_INIT (CPtdGoto) 

m_IDStr = ""; 

m_Gotoiy!ode = -1; 

m RecNum = 0; 

/7} }AFX_DATA_INIT 



void CPtdGoto : :DoDataExchange (CDataExchange*' pDX) 

CDialog: : DoDataExchange (pDX) ; 
// { {AFX_DATA_MAP (CPtdGoto) 

DDX_Text (pDX, IDC_E_GOTO_ID__NUM, tn_IDStr) ; 
DDX_Radio{pDX, IDC_R_GOTO_SELl , m_GotoMode) ; 
DDX_Text (pDX, IDC_E_GOTO_REC_NUM, ra_RecNum) ; 
DDV Mi nMaxLong ( pDX , m_RecNum , 0 , 100000); 

/ / } 7afx_data_map 

BEGIN iyiESSAGE_MAP (CPtdGoto, CDialog) 

//{ {AFX MSG_MAP (CPtdGoto) 

/7 NOTE: the ClassWizard will add message map macros here 

//} }AFX_MSG_MAP 
END_MESSAGE_iy[AP ( ) 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// CPtdGoto message handlers 



// ptdgoto.h : header file 
// 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// CPtdGoto dialog 

class CPtdGoto : public CDialog 

// Construction 
public : 

CPtdGoto (CWnd* pParent = NULL); // standard constructor 

// Dialog Data 

/ / { { AFX_DATA ( CPtdGoto ) 
enum { IDD = IDD_D_GOTO ) ; 
CString m_IDStr; 
int m_GotoMode ; 
1 ong m_Re cNum ; 
//} }AFX_DATA 

// Implementation 
protected : 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 
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// Generated message map functions 
//{{AFX MSG(CPtdGoto) 

// NOTE: the ClassWizard will add member fiinctions here 
//} }AFX_MSG 
DECIARE MESSAGE MAP ( ) 

} 



// PTDidoc.cpp : implementation of the CPTDinpDoc class 
// 

ttinclude "stdafx.h" 
# include " PTDinp . h" 

ttinclude " PTDidoc . h" 
ttinclude "PTDGoto.h" 
# include " aa_ne ts . h" 

ttifdef _DEBUG 
#undef THIS_FILE 

static char BASED_CODE THIS_FILE[] = _FILE_; 
#endif 

I III I III/ /III ii/ii III 11/11 nil/Ill III III 11 Ill/Ill III I nil/ ii/i III/ ii/ii III/ 
/////////////////////////////////////////////////////////////////////////// 

// CPTDinpDoc 

IMPLEMENT_DYNCREATE ( CPTDinpDoc , CDocument ) 

BEGIN_MESSAGE_MAP (CPTDinpDoc , CDocument ) 

// { {AFX_MSG_MAP (CPTDinpDoc) 

ON_COMMAND {ID_REC_FIRST, OnRecFirst) 

ON_COMMAND ( ID_REC_LAST , OnRecLas t ) 

ON_COMMAND ( ID_REC_NEXT , OnRecNext ) 

ON_COMMAND (ID_REC_PREV, OnRecPrev) 

ON_COMMAND ( ID_FILE_OPEN, OnFileOpen) 

ON_COMMAND ( ID_BLD_NET_FILE , OnBldNet Fi le ) 

ON_COMMAND ( ID_REC_GOTO , OnRecGoto) 

ON_COMMAND ( ID_FILE_MRU_FILE1 , OnFileMruFilel ) 

ON_COMMAND (ID_FILE_MRU_FILE2 , OnFileMruFile2 ) 

ON_COMMAND (ID_FILE_MRU_FILE3 , OnFileMruFile3 ) 

ON COMMAND ( ID_FILE__MRU_FILE4 , OnFileMruFile4 ) 

/ /y } AFX__MSG_MAP 
END_MESSAGE_MAP ( ) 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// CPTDinpDoc construction/destruction 

CPTDinpDoc : : CPTDinpDoc ( ) 

{ 

CurRecord = 0; 
NumRecords = 0; 
St rcpy ( PathName , " " ) ; 
IDStr = ""; 
GotoMode = 0 ; 

InitializeRec ( ) ; 
LoadNets () ; 
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m 





NetPosl 


= 0 


. 0; 


Tn_ 


I^NetNegl 


= 0 


.0; 


m" 


~NetPos2 


= 0 


.0; 


m_ 


"NetNeg2 


= 0 


. 0; 


m_ 


~NetPos3 


= 0 


. 0; 


m_ 


"NetNeg3 


= 0 


. 0; 



} 

CPTDinpDoc : : -CPTDinpDoc ( ) 

(CPTDinpApp*) Af xGet App ( ) ) - >m_pDoc = NULL; 
FreeNets { ) ; 

} 

BOOL CPTDinpDoc : rOnNewDocument ( ) 

Q if ( ! CDocument : : OnNewDocument ( ) ) 

return FALSE; 

;'P ( ( CPTDinpApp* ) Af xGet App ( ) ) - >m_pDoc = thi s ; 

// TODO: add reinitialization code here 
ly // (SDI documents will reuse this document) 



} 



return TRUE; 



lb /////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// CPTDinpDoc serialization 



void CPTDinpDoc :: Serialize (CArchive& ar) 

1:3 { 

py if (ar . IsStoring ( ) ) 

// TODO: add storing code here 

} 

else 

{ 

// TODO: add loading code here 

} ^ 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
II CPTDinpDoc diagnostics 

#ifdef _DEBUG 

void CPTDinpDoc : :AssertValid ( ) const 
CDocument: : AssertValido ( ) ; 

} 

void CPTDinpDoc: :Dump (CDumpContext& dc) const 

CDocument : : Dump ( dc ) ; 
#endif // _DEBUG 
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/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 

// CPTDinpDoc commands 

void CPTDinpDoc: :OnRecFirst 0 

{ 

CurRecord = 0 ; 
get_rec (Rec) ; 

} 

void CPTDinpDoc : lOnRecLast ( ) 

CurRecord = NumRecords - 1; 
get_rec (Rec) ; 

} 

void CPTDinpDoc : : OnRecNext { ) 

CurRecord = min (CurRecord + 1, NumRecords - 1) ; 
get_rec (Rec) ; 

} 

void CPTDinpDoc : : OnRecPrev ( ) 

CurRecord = max (CurRecord - 1, 0) ; 
get_rec (Rec) ; 

} 

/////////////////////////////////////////////////////////////////////////// 
///////////////////////////////////////////////////////////////// 



void CPTDinpDoc :: get_rec ( char* pRec ) 

FILE *fp; 
char *stmp; 



fp = fopen(PathName, "rb") ; 
if(fp==NULL) { 
} else { 

f seek (fp, (long) ( (REC_LENGTH + 2L) *CurRecord) , SEEK_SET) ; 
f read (pRec, sizeof (char) , (REC_LENGTH + 2L) , fp) ; 
f close (fp) ; 

m_IiAB_ID = get f Id (pRec , 1 , 12 ) ; 
m_NAME_L = get_f Id (pRec , 13 , 24 ) ; 
m_NAiyiE_F = get_fld(pRec,37,24) ; 
m_NAiyiE_MI = get_fld(pRec, 61,2) ; 

m_DATE_OF_DATA_ENTRY = get f Id (pRec, 63, 10) //time 
m__PATIENT_AGE = (double) atof (get_fld (pRec, 73, 20)) 
m_DATE_OF_BIRTH = get_f Id (pRec ,93,10); 
//stmp = get_f Id (pRec, 103 , 2) ; 

//if(stmp[0] == '1') m_ETHNIC_ORIGIN_WHITE = ("1"); else 

m_ETHNIC_ORIGIN_WHITE = ("0"); 
//if(stmp[0] == '2') m_ETHNIC_ORIGIN_BLACK = ("1"); else 

m ETHNIC ORIGIN BLACK = ("0") ; 
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//if (stmp [0] == '3') m_ETHNIC_ORIGIN_ASIAN = ("1"); else 
m__ETHNIC_ORIGIN_ASIAN = ("0") ; 

//if(stmp[0] == '4') m_ETHNIC_ORIGIN_HISPANIC = ("1"); else 
m_ETHNIC_ORIGIN_HISPANIC = ( " 0 " ) ; 

//if (stmp [0] == '5') m_ETHNIC_ORIGIN_NATIVE_AMERICAN = ("1"); else 
m_ETHNIC__ORIGIN_NATIVE AMERICAN = ("0"); 

//if (stmp [0] == '6') m_ETHNIC_ORIGIN_OTHER = ("1"); else 
m_ETHNIC_ORIGIN_OTHER = ( " 0 " ) ; 

m_ETHNIC_ORIGIN_WHITE = get_f Id (pRec , 10 3 , 2 ) 

m_ETHNIC_ORIGIN_BLACK = get_f Id (pRec , 105 , 2 ) 

m_ETHNIC_ORIGIN_ASIAN = get_f Id (pRec , 107 , 2 ) 

m_ETHNIC_ORIGIN_HISPANIC = get_f Id (pRec , 109 , 2 ) ; 

m_ETHNIC_ORIGIN_NATIVE_AMERICAN = get_f Id (pRec , 111 , 2 ) ; 

m_ETHNIC_ORIGIN_OTHER = get_f Id (pRec , 113 , 2 ) ; 

stmp = get_f Id (pRec, 115, 2) ; 

if (stmp [0] == ' 1 ' ) m_MARITAL_STATUS_S INGLE = ( " 1 " ) ; else 
m_MARITAL_STATUS_S INGLE = ( " 0 " ) ; 

if (stmp [0] == '2') m_M7^ITAL_STATUS_MARRIED = ("1"); else 
^3 m_MARITAL_STATUS_MARRIED = ("0"); 

jig if (stmp [0] == '3') m_MARITAL_STATUS_DIVORCED = ("1"); else 

• « m_MARITAL_STATUS_DIVORCED = ( " 0 " ) ; 

if{stmp[0] == '4') m_MARITAL_STATUS_WIDOWED = ("1"); else 
UJ m_MARITAL_STATUS_WIDOWED = ( " 0 " ) / 

if (stmp [0] == '5') m_MARITAL_STATUS_LWP = ("1"); else 
ir| m_MARITAL_STATUS_LWP = ("0"); 

jigi if (stmp [0] == '6') m_MARITAL_STATUS_OTHER = {"1"); else 

••^ m_MARITAL_STATUS_OTHER = ( " 0 " ) ; 

»» m_ACOG_SYNPTOMS = get___f Id (pRec , 117 , 2 ) ; 

□ stnp = get_fld(pRec, 119,2) ; 

U if (stmp [0] == '0') m_VAGINAL_BLEEDING = ("0") ; else 

1 , m_VAGINAL_BLEEDING = ("1") ; 

f7 if (stmp[0] == '1') m_VAGINAL_BLEEDING_TRACE = ("1"); else 

m_VAGINAL_BLEEDING__TRACE = ("0") 
P if (stmp[0] == '2') m_VAGINAL_BLEEDING__MEDIXJM = ("1"); else 

m m_VAGINAL_BLEEDING_MEDIUM = ("0"); 

if (stmpEO] == '3') m_VAGINAL_BLEEDING_GROSS = ("1"); else 
m_VAGINAL_BLEEDING__GROSS = ("0") 

if (stmp [0] == 0) m_VAGINAL_BLEEDING = ("0") 
m_PATIENT_COMPLAINT_l = get_f Id (pRec , 121 , 2 ) 
m_PATIENT_COMPLAINT_2 = get_f Id (pRec , 123 , 2 ) 
m_PATIENT_COMPLAINT_3 = get_f Id (pRec , 125 , 2 ) 
m_PATIENT_COMPLAINT_4 = get_f Id {pRec ,127,2) 
m_PATIENT_COMPLAINT_5 = get_f Id (pRec ,129,2) 
m_PATIENT_COMPLAINT_6 = get_f Id (pRec , 131 , 2 ) 
stmp_get_f Id (pRec, 133 , 2) 





if (stmp [0] == 


' 1' ) m PATIENT 


COMPLAINT_ 


1 


_LT1 = 


( 


fi 2_ " 


) 


;else 




_PATIENT_COMPLAINT_ 


1 LT 1 = ( " 0 " ) ; 


















if (stmp [0] == 


''2' ) m PATIENT 


COMPLAINT^ 


1 


( 


"1 


") ; 




else 


m_ 


_PATIENT_COMPLAINT_ 


1 1 3 = ( " 0 " ) ; 


















if (stmp [0] == 


3' ) m PATIENT 


COMPLAINT_ 


1 


_4_6 = 


( 


(1 II 


) 


; else 


m_ 


_PATIENT_COMPLAINT_ 


1 4 6 = ( " 0 " ) ; 


















if (stmp [0] == 


4' ) m PATIENT 


COMPLAINT_ 


_1_ 


_7__9 = 


( 




) 


; else 


m_ 


_PATIENT_COMPLAINT__ 


17 9 ("0") ; 


















if (stmp (0] =="" 


5' ) m PATIENT 


COMPIiAINT_ 


_1_ 


_10_12 




(" 


1 


") ; else 


m_ 


_PATIENT_COMPLAINT_ 


1 10 12 = ("0") 


















if (stmp [0] == 


6' ) m PATIENT 


COMPLAINT_ 


1_ 


_GT12 


(" 


1") 




else 


m_ 


PATIENT COMPLAINT 


1_G T12 = ("0") 


















m EGA BY SONO 


= get_f Id (pRec , 


135, 8) ; 















m_EGA_BY_LMP = get_f Id (pRec ,14 3,8) 
m_EGA_AT_SAMPLING = get_fld (pRec, 151, 8) 
m_GRAVITY = get_f Id (pRec, 15 9,2) ; 
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□ 



m 
m 
m 



1"^ 



m_PARITY = get_fld(pRec,161,2) ; 
m_ABORTIONS = get_f Id (pRec ,163,2) ; 
stmp = get_f ld(pRec, 16 5, 2) ; 



m 



if (stmp [0] 
if (stmp [0] 
if (stmp [0] 
m_0_COMP = 
m_l_COiyiP = 
m_2_COMP = 
m_3_C0MP = 
m_4_C0MP = 
m__5_C0MP = 
m_6_COMP = 
stmp = get_ 
if (stmp[0] = 
MULTIPLE GESTATION 



("1") 
("1") 
("1") 



1 ' ) m_2_COMP_l = 
== '2') m_2_COMP_2 = 
== ' 3 ' ) m_2_COMP_3 = 
get_f ld(pRec, 167, 2) 
get_f ld(pRec, 169, 2) 
get_f Id (pRec ,171,2) 
get_fld(pRec, 173, 2) 
get__f ld(pRec, 175, 2) 
get_f ld(pRec, 177, 2) 
get_f ld(pRec, 179, 2) 
fld(pRec, 181,2) ; 

[ 0 ] , _MULTI PLE_GESTATION 
= ("1"); 



else 
else 
else 



COMP 

"COMP" 

"COMP" 



( " 0 " ) 
( " 0 " ) 
( " 0 " ) 



("0") ; else 



("1 



("1") 



) ; else 
else 
else 



i f ( s t mp [ 0 ] = = ' 1 ' ) ( " 1 " ) ; m_MULTI PLE_GESTATION_TWINS - 
m_MULTIPLE_GESTATION_TWINS = ( " 0 " ) ; 

if (strap [0] == '2') m_MULTIPLE_GESTATION_TRIPLETS = ("1"); 
m_MULTI PLE_GESTATION_TRI PLETS = ( " 0 " ) , 

if (strap [0] == ' 3 ' ) m_MULTIPLE_GESTATION_QUADS = 
m_MULTIPLE_GESTATION_QUADS = ( " 0 " ) ; 

if (strap [0] == 0) m_MULTIPLE_GESTATION = ("0"); 

m_UTCERV_ABNORMALITY = get_f Id (pRec , 183 , 2 ) ; 

m_CERVICAL_CERCLAGE = get-f Id (pRec , 185 , 2 ) ; 

m_GESTATIONAL _DIABETES = get_f Id (pRec , 187 , 2 ) ; 

m_HYPERTENS I VE_D I BORDERS = ge t _f 1 d ( pRe c , 1 8 9 , 2 ) ; 

stmp = get_f ld(pRec, 191, 2) ; 

if(stmp[0] == '0') m_DILITATION_UNKNOWN = ("1"); 
( " 0 " ) 

m DILITATION LTl = ("1"); else m DILITATION LTl = 



else 



_DILITATION_UNKNOWN = 

'D 



("0»') 
( " 0 " ) 
( " 0 " ) 
("0") 
( " 0 " ) 
( " 0 " ) 
( " 0 " ) 



if (stmp [0] 
if (stmp [0] 
if (strap [0] 
if (strap [0] 
if (stmp [0] 
if (stmp to] 
if (stmp ( [0] 



2' ) 



1 = 



= = '3 

== '4 

== '5 

== '6 



m__DILITATION_ 
m DILITATION 1 2 



1 = 



== '7') 



("1"); else m_DILITATION_ 
= ("1"); else m_DILITATION_l_2 = 
("1"); else m_DILITATION__2 = 

_ = ("1"); else ra_DILITATION_2_3 = 

m_DILITATION_3 = ("1"); else m_DILITATION_3 = 
m DILITATION GT3 = ("1") ; else ra DILITATION GT3 



ra_DILITATI0N_2 = 
m DILITATION 2 3 



Stmp = get_f Id (pRec, 193 , 2) ; 

if (stmp [0] == '1') m_CERVICAL_CONSISTANCY_FIRM = ("1") 
m_CERVICAL_CONSISTANCY_FIRM = ( " 0 " ) ; 

if (stmp [0] == ' 2 ' ) m_CERVICAL_CONSISTANCY_MOD = ( " 1 " ) / 
m_CERVICAL_CONSISTANCY_MOD = ("0"); 

'if (stmp[0] == '3') m_CERVICAL_CONSISTANCY_SOFT = ("1") 
m_CERVICAL_CONSISTANCY_SOFT = ( " 0 " ) ; 

m_ANTIBIOTICS = get_f Id (pRec , 195 , 2 ) ; 

ra_CORTICOSTEROIDS = get_f Id (pRec ,197,2); 

ra_TOYOLYTICS = get_f Id (pRec ,199,2); 

ra_INSULIN = get_fld(pRec, 2 01, 2) ; 

ra_ANTIHYPERTENSIVES = get_f Id (pRec, 203 , 2 ) ; 

m_MEDICATIONS_NONE = get_f Id (pRec ,205,2); 

m_MEDICATIONS_UNKNOWN = -get_f Id (pRec , 207 , 2 ) ; 

m_FFN_RESULT = get_f Id (pRec , 209 , 2 ) ; 

ra_NetPosl = (double) atof (get_f Id (pRec, 211, 20)); 

m_NetNegl = (double) atof (get_f Id (pRec, 231, 20)); 



; else 
else 
else 
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} 



m_NetPos2 = (double) atof (get_f Id (pRec, 251, 20)) 

m_NetNeg2 = (doiable) atof (get_f Id (pRec, 271, 20)) 

m_NetPos3 = (double) atof (get_f Id (pRec , 291, 20)) 

m_NetNeg3 = (double) atof (get-f Id (pRec, 311, 20)) 

UpdateAllViews (NULL) ; 



char* CPTDinpDoc: :get_fld (char* pRec, int ofs, int len) 



int 1 ; 



} 



for( i = 0; i < len; i++) { 

fld[i] = pRec [of s-l+i] ; 

fid [len] = 0; 

f or ( i = len-1; i >= 0; i--) { 
if(fld[i] ==''){ 

fld[i] = 0; 
} else { 

break ; 

return fid; 



CTime& CPTDinpDoc : :get_time_f Id (char* pRec, int iofs, int len) 



xnt X / 
int m,d,y; 
int ofs; 



for ( 
} 

for ( 



} 



i = 0; i < len; i++) { 
fld[i] = pRec (iof s-l+i] ; 



i = len-1; i > 0; 
if (fid [i] == 

fld[i] 0 
} else { 

brea]c; 

} 



i--) { 



strcpy (tstr , f Id) ; 
m = d = y = 0 ; 
ofs = 0; 

while (tstr [of s] == ' ' 
m = atoi (&tstr [of s] ) ; 
while (tstr [of s] >- '0' 
while (tstr [of s] == 
d = atoi (&tstr [of s] ) ; 
if (d == 0) d = 1; 
while (tstr [ofs] >= '0' 
while (tstr [ofs] == '/' 
y = atoi (&tstr [of s] ) ; 
if (y<100) y += 1900; 



) ofs + +; // slcip spaces; 



SlSc tstr [ofs] 
I I tstr [ofs] 



tstr [ofs] 
I I tstr [ofs] 



'9' 



<= ' 9' 
__ _ 



) ofs++; // slcip number 
) ofs++; // slcip delimiter 



) ofs++; // skip number 

) ofs++; // skip delimiter 



CTime t (y , m, d, 0 , 0 , 0 ) ; 
tim = t; 
return (tim) ; 
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m 



void CPTDinpDoc : :put__rec (char* pRec) 

FILE *fp; 
CString stmp; 

put_f Id (pRec, m_tiAB_ID ,1,12); 

put_f Id (pRec, m_NAME_L , 13 , 24) ; 

put_f ld(pRec, m_NAME_F ,37,24); 

put_f Id (pRec , m_NAME__MI ,61,2) ; 

put_f Id (pRec , m_DATE_OF_DATA_ENTRY , 63 , 10) ; //time 
put_dbl_fld(pRec, m_PATIENT__AGE ,73,20); 

put_f ld(pRec, m_DATE__OF_BIRTH ,93,10); 

M //Stmp = " "; 

□ //if ( m_ETHNIC__ORIGIN_WHITE == "1" ) stmp = "1"; 
//if { m_ETHNIC_ORIGIN_BIiACK == "1" ) stmp = "2"; 
//if ( m_ETHNIC_ORIGIN_ASIAN == "1" ) stmp = "3"; 
//if { m_ETHNIC_ORIGIN_HISPANIC == "1" ) stmp = »'4"; 

i.y //if ( m_ETHNIC_ORIGIN_NATIVE_AMERICAN == ) stmp = "5", 

|,y //if ( m_ETHNIC_ORIGIN_OTHER == "1" ) Stmp = "6"; 

m //put__f ld(pRec, stmp, 103, 2); 

*' put_f ld(pRec, m_ETHNIC_ORIGIN_WHITE ,103,2) 

put_f ld(pRec, m_ETHNIC_ORIGIN_BLACK ,105,2) 
put_f ld(pRec, m_ETHNIC_ORIGIN_ASIAN ,107,2) 
p put_fld(pRec, m_ETHNIC__ORIGIN_HISPANIC ,109,2) 

U put_f ld(pRec, m_ETHNIC_ORIGIN_NATIVE_AMERICAN ,111, 2) 

put_f Id (pRec , m_ETHNIC_ORIGIN_OTHER , 113 , 2 ) ; 

stmp = " "; 

□ if ( mjyiARITAL_STATUS_S INGLE == "1" ) stmp + "1"; 
I'lj if ( m__MARITAL__STATUS_MARRIED == "1" ) stmp "2"; 

if ( m_MARITAL_STATUS_DIVORCED == "1" ) stmp = "3"; 
if ( m_MARITAL_STATUS_WIDOWED == "1" ) stmp "4"; 
if ( m_M7^ITAL_STATUS__LWP == "1" ) stmp = "5"; 
if ( m_MARITAL_STATUS_OTHER == "1" ) stmp = "6"; 
put_f Id (pRec, stmp, 115, 2); 

put_f Id (pRec , m_ACOG_SYNPTOMS ,117,2); 

stmp = " '» ; 

if ( m_VAGINAL_BLEEDING == "O" ) stmp = "0"; 
if ( m__VAGINAL_BLEEDING_TRACE == "1" ) stmp = "1"; 
if ( m_VAGINAL_BLEEDING_MEDIUM == "1" ) stmp = "2"; 
if ( m_VAGINAL_BLEEDING_GROSS == "1" ) stmp = "3"; 
put_f Id (pRec, stmp, 119, 2) ; 

put_f Id (pRec, m_PATIENT_COMPLAINT_l , 121, 2) 
put_f Id (pRec , m_PATIENT_C0MPLAINT_2 ,123,2) 
put_f Id (pRec , m_PATIENT_C0MPLAINT_3 ,125,2) 
put_f Id (pRec, m_PATIENT_C0MPLAINT_4 , 127 , 2 ) 
put_f Id (pRec, m_PATIENT_COiyiPLAINT_5 , 12 9, 2) 
put_f ld(pRec, m_PATIENT__C0iyiPLAINT_6 ,131,2) 

Stmp = " "; 

if ( m_PATIENT_COMPLAINT_l_LTl == "1" ) stmp = "1"; 

if ( m_PATIENT_COMPLAINT_l_l_3 == "1" ) stmp = "2' 

if ( m_PATIENT_COMPLAINT_l_4_6 == "1" ) stmp = "3"; 
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if ( m_PATIENT_COMPLAINT_l_7_9 == "1" ) stmp = "4 
if ( m_PATIENT_COMPLAINT_l_10_12 == "1" ) stmp = 
if ( m_PATIENT_COMPIiAINT_l_GT12 == "1" ) stmp = " 
put__f Id (pRec, stmp, 133, 2) ; 

pu t_f 1 d ( pRe c , m__EGA__B Y_SONO ,135,8); 

put__f Id (pRec , m_EGA_BY_LMP; , 143 , 8) ; 

put_f Id (pRec , m__EGA_AT_SAMPLING ,151,8); 

put_f ld(pRec, m_GRAVITY ,159,2); 

put__f ld(pRec, m_PARITY, 161,2); 

put_f Id (pRec , m__ABORTIONS , 163,2); 

stmp = " " ; 

if ( m_2_COMP_l == "1" ) stmp = "1"; 
if( m_l_C0MP_2 == "1") stmp = "2"; 
if ( m_2_COMP_3 == "1" ) stmp = "3"; 
put_f ld(pRec, stmp, 165, 2) ; 

put_f ld(pRec, m_0_COMP ,167,2) 

put_fld(pRec, m_l_COMP ,169,2) 

put_f ld(pRec, m__2_COMP ,171,2) 

put_fld(pRec, m_3_C0MP ,173,2) 

put_fld(pRec, m_4_COMP ,175,2) 

put_fld(pRec, m_5_COiyiP ,177,2) 

put_f ld(pRec, m_6_C0MP ,17 9,2) 

stmp = " " ; 

if ( m_MULTIPLE_GESTATION == "0" ) stmp = "0"; 
if( m_iyiULTIPLE_GESTATION_TWINS == "1" ) stmp = " 
if ( m_MULTIPLE__GESTATION_TRIPLETS == "1" ) stmp 
if ( m_MULTIPLE_GESTATION_QUADS == "1" ) Stmp = " 
put_f Id (pRec, Stmp, 181, 2) ; 

put_f Id (pRec , m_UTCERV_ABNORMALITY ,183,2); 
put_f Id (pRec , m_CERVICAL_CERCLAGE ,185,2); 
put_f ld(pRec, m_GESTATIONAL__DIABETES ,187,2); 
put_f Id (pRec , m_HYPERTENSIVE_DISORDERS , 189 , 2 ) ; 

Stmp = " " ; 

if ( m_DILITATION_UNKNOWN == "1" ) stmp = "0"; 
if{ m_DILITATION_IiTl == "1" ) stmp = "1"; 
if( m_DILITATION_l == "1" ) stmp = "2"; 
if( m__DILITATION_l_2 == "1") stmp"3"; 
if ( m_DILITATION_2 == "1" ) stmp = "4"; 
if( m_DILITATION_2_3 == "1" ) stmp = "5"; 
if (m_DILITATION_3 == "1" ) stmp = "6"; 
if ( m__DILITATION_GT3 == "1" ) stmp = "7"; 
put-f ld(pRec, stmp, 191, 2) ; 

stnp = " " ; 

if ( m_CERVICAL_CONSISTANCY_FIRM "1" ) stmp = 

if ( m_CERVICAL_CONSISTANCY_MOD == "1" ) stmp = " 
if ( m_CERVICAL_CONSISTANCY_SOFT == "1" ) stmp = 
put_f ld(pRec, stmp, 193, 2) ; 

put_fld(pRec, m_ANTIBIOTICS ,195,2); 

put_f Id (pRec , m_CORTICOSTEROIDS ,197,2); 

put_f Id (pRec , m_TOYOLYTICS ,199,2); 

put_f ld(pRec, m_INSULIN ,201,2); 

put_f ld(pRec, m_ANT I HYPERTENSIVES ,203,2); 

put__f Id (pRec , m__MEDICATIONS_NONE ,205,2) ; 
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a 

a 
„p 

i,y 
i.y 
m 
m 

n 

□ 

1.4, 



put_f Id (pRec , tnjyiEDICATIONS_UNKNOWN ,207,2); 
put_f Id (pRec , m_FFN_RESULT ,209,2); 
put_net_fld(pRec, m_NetPosl, 211, 20) 
put_net_f ld(pRec, m__NetNegl, 231, 20) 
put_net_f Id (pRec, m_NetPos2 , 2 51 , 2 0) 
put_net_f Id (pRec, m_NetNeg2 , 271, 20) 
put_net_f ld(pRec, m_NetPos3 ,291, 20) 
put_net_f ld(pRec, m_NetNeg3 , 311 , 2 0) 

fp = fopen{PathName, "r+b") ; 
if(fp==NULL) { 

fp = f open (Pat hName, "wb") ; 
if(fp!=NULL) { 

f write (Rec, sizeof (char) , (REC_LENGTH+2L) , fp) ; 
fflush(fp) ; 
f close (fp) ; 

} else { 

f seek (fp, (long) ( (REC_LENGTH+2L) *CurRecord) , SEEK_SET) ; 
fwrite (pRec, sizeof (char) , (REC_LENGTH+2L) , fp) ; 
fflush(fp) ; 
^ f close (fp) ; 

UpdateAllViews (NULL) ; ' 



} 

void CPTDinpDoc : :put fld(char* pRec, CString& dat, int ofs, int len) 

{ 

int i ; 
int fill; 



strcpy (fld,dat) ; 
fill = 0; 

for( i = 0; i < len; i++) { 

if (fld[i] == 0) fill = 1; 
if(fill==0) { 

pRec (of s-l+i] = fld[i]; 
} else { 

pRec [of s-l+i] = (char)' 



} 



} 



} 



void CPTDinpDoc :: put dbl fid (char* pRec, double dat, int ofs, int len) 

{ " ~ 

int i ; 



sprintf (fid, " %20 . 4lf " , dat ) ; 
for( i = 0; i < len; i++) { 

pRec [of s-l+i] = fld[i]; 



} 



void CPTDinpDoc: :put net fid (char* pRec, double dat, int ofs, int len) 

{ ~ " 



mt 1 ; 
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sprintf (fid, " %20 . 161f " , dat ) ; 
for( 1=0; i < len; i++) { 
^ pRec [of s-l+i] = fld[i]; 

} 

void CPTDinpDoc: :put- time -fid (char* pRec, CTime& dat, int ofs, int len) 

int i ; 
char *pfld; 

pfld = time2str (dat ) ; 
strcat (pfld, " ") ; 

for( i = 0; i < len; i++) { 

pRec [of s-l+i] = pfld[i]; 

} 

void CPTDinpDoc : lOnBldNetFile ( ) 
FILE *fp; 

// Get the File Name 

CFileDialog Dig (FALSE, "ndb", NULL, OFN_OVERWRITEPROMPT , 

"NDB iles ( * . nbd) | | * . ndb | | " ) ; 
Dlg.m_ofn. IpstrTitle = "Open fixed length Network DataBase file"; 
if ( Dig . DoModal ( ) == IDOK ) { 

strcpy (NetName , Dig . GetPathName ( ) ) ; 

// open the new file 

fp = f open (NetName, "wb" ) ; 

if (fp == NULL) { 

AfxMessageBox ("Could not open the neural network output 

f ile! ") ; 



} else { 



// build the record 
CurRecord = 0; 
HCURSOR hcurSave; 

hcurSave = SetCursor (LoadCursor (NULL, IDC_WAIT) ) ; 

while ( CurRecord < NumRecords ) { 

/ / read the PTD record 
get_rec(Rec) ; 

// run the networks 
RunNets (CurRecord) ; 

// build the output record 
put_f ld(NetRec, m_LAB_ID, 1, 12); 

put_net_f Id (NetRec, m_NetPosl, 13, 20) 

put_net_f ld(NetRec, m_NetNegl, 33, 20) 

put_net_f ld(NetRec, m_NetPos2, 53, 2 0) 

put_net___f ld(NetRec, m_NetNeg2 , 73, 20) 

put_net_f Id (NetRec, m_NetPos3, 93, 20) 
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put_net___f ld(NetRec, m_NetNeg3, 113, 20); 
NetRec[132] = (char) OxOd; 
NetRectl33] =. (char) OxOa; 



// write the output record 

f write (NetRec, sizeof (char) 134, fp) 



// increment to the next PTD record 
CurRecord += 1; 



close the new file 



f close (fp) ; 
SetCursor (hcurSave) ; 



is 



} 




} 



void CPTDinpDoc: :InitializeRec() 



// add one-time construction code here 

for(int i = 0; i < REC_LENGTH; i++) Rec[i] = (char)' 

Rec [REC_LENGTH] = (char) OxOd; 

Rec [REC_LENGTH + IL] = (char) 0x0 a; 



//CTime Dtime (1900, 1, 1, 0, 0, 0) ; 
char* Dtime = "mm/dd/yy" ; 



m_LAB_ID =(""); 
m_NAME_L = ( " " ) ; 
m_NAiyiE_F = ( " " ) ; 
m_NAME_MI = ( " " ) ; 

m_DATE_OF_DATA_ENTRY = time2str (CTime : :GetCurrentTime ()) ; 
m_PATIENT_AGE = 0.0; 
m_DATE__OF_BIRTH = Dtime; 
m_ETHNIC_ORIGIN_WHITE ={»•"); 
m_ETHNIC_ORIGIN_BLACK = ( " " ) ; 
m_ETHNIC_ORIGIN__ASIAN = ( " " ) ; 
m_ETHNIC_ORIGIN_HISPANIC = ( " " ) ; 
m_ETHNIC_ORIGIN_NATIVE_AMERICAN = (""); 
m_ETHNIC_ORIGIN_OTHER = ( " " ) / 
m_iy[ARITAL_STATUS_S INGLE = (""); 
m_iyiARITAL_STATUS_MARRIED = (""); 
m_iyiARITAL_STATUS_DIVORCED = ( " " ) ; 
m_MARITAL_STATUS_WIDOWED = ( " " ) ; 
m__^4ARITAL_STATUS_LWP =(""); 
m_MARITAL_STATUS_OTHER = ( " " ) ; 
m_ACOG_SYNPTOMS _= ( " " ) ; 
m_PATIENT_COMPIiAINT_l = (""); 
m__PATIENT_C0MPLAINT__l__l_3 = (""); 
m_PATIENT_COMPLAINT_l_10_12 = ( " " ) ; 
m_PATIENT_COMPLAINT_l_4_6 = ( " " ) ; 
m_PATIENT_COMPLAINT_l_7_9 = ( " " ) ; 
m_PATIENT_C0MPLAINT_l_GT12 = ( " " ) ; 
m_PATIENT_COMPLAINT_l_LTl = ( " " ) ; 
m_VAGINAL_BLEEDING = ( " " ) ; 
m_VAGINAL_BLEEDING_TRACE =(""); 
m_VAGINAL_BLEEDING_MEDIUM =(""); 
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m 



m 



m 



m 



m 



VAGINAL_BLEEDING_GROSS 
'PATIENT_COMPLAINT_6 = 
■pATIENT_C0MPIiAINT_3 = 
'PATIENT_COMPLAINT_2 = 
PATIENT COMPLAINT 5 = 




") ; 



a 

u 



m_PATIENT_C0MPLAINT_4 = ( " " ) ; 



EGA BY 


SONO = 


"ww.d" ; 


EGA BY 


LMP = "ww.d"; 


EGA AT 


'sampling = "ww.d"; 


0 COMP 




( " " ) . 




1 COMP 




( " " ) . 




2 COMP 




( " " ) . 




3 COMP 




( " " ) . 




4 COMP 




( " " ) . 




"5 COMP 




( " " ) . 




'6 COMP 




("") . 




"2 COMP 


1 


= { " " ) ; 


2 COMP" 


"2 


= { " " ) ; 


'2 COMP~ 


"3 


= { " " ) ; 



m_GRAVITY = ( " " ) ; 
m_PARITY = ( " " ) ; 
m_ABORTIONS = ( " " ) ; 
m__MULTIPLE_GESTATION = ( " " ) ; 
m_MULTIPLE_GESTATION_TWINS = ( " " ) ; 
m_MULTIPLE_GESTATION_TRIPLETS = (""); 
m_MULTIPLE_GESTATION_QUADS = (""); 
m_UTCERV_ABNORMALITY = ( " " ) ; 
m_CERVICAL_CERCLAGE = ( " " ) ; 
Tn_GESTATIONAL_DIABETES = (""); 
m_HYPERTENSIVE_DISORDERS = (""); 
m_DILITATION_LTl = ( " " ) ; 
m_DILITATION_l = ( " " ) ; 
m_DILITATI0N_l_2 = ( " " ) ; 
m_DILITATION_2 = (""); 
in_DILITATION__2_3 = ( " " ) ; 
in_DILITATION_3 =(""); 
m_DILITATION_GT3 = (""); 
m_DILITATION_UNKNOWN = ( " " ) ; 
Tn_CERVICAL_CONSISTANCY_FIRM = ( " " ) ; 
m_CERVICAL_CONSISTANCY_MOD = ( " " ) ; 
tn_CERVICAL_CONSISTANCY_SOFT = (""); 
m_J\NTIBIOTICS = ( " " ) ; 
m_CORTICOSTEROIDS = ( " " ) ; 
m_TOYOLYTICS = (""); 
m_INSULIN = ( " " ) ; 
m_ANTIHYPERTENSIVES = ( " " ) ; 
m_MEDICATIONS_NONE = ( " " ) ; 
m_MEDICATIONS_UNKNOWN = { " " ) ; 
m_FFN_RESULT = ( " " ) ; 



CPTDinpDoc : : LoadNets ( ) 



// load eight networks for each consensus 1-8 
if (LoadNet (1, "ega6_0") != 1) { 

Af xMessageBox ( "Could not load ega6__0") ; 

if (LoadNet (2, "ega6_l") != 2) { 

Af xMessageBox ( "Could not load ega6_l") ; 
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if (LoadNetO, "ega6_2") != 3) { 

AfxMessageBox ( "Could not load ega6_2"); 

if (LoadNet (4, "ega6_3") != 4) { 

AfxMessageBox ( "Could not load ega6_3"); 

if (LoadNet (5, "ega6_4") 1= 5) { 

Af xMessageBox ( "Could not load ega6_4") ; 

if (LoadNet (6, "ega6_5") != 6) { 

AfxMessageBox ( "Could not load ega6_5"); 

if (LoadNet (7, "ega6_6") != 7) { 

AfxMessageBox ("Could not load ega6_6") ; 

if (LoadNet (8, "ega6_7") != 8) { 

^ AfxMessageBox { "Could not load ega6_7") ; 

// load eight networks for each consensus 9-16 

if (LoadNet (9, "egad7f0") != 9) { 

AfxMessageBox ( "Could not load egad7f0") ; 

if (LoadNet (10, "egad7fl") != 10) { 

AfxMessageBox ( "Could not load egad7fl"); 

if (LoadNet (11, "egad7f2") != 11) { 

AfxMessageBox ("Could not load egad7f2") ; 

if (LoadNet (12, "egad7f3") != 12) { 

AfxMessageBox ( "Could not load egad7f3"); 

if (LoadNet (13, "egad7f4") 1- 13) { 

AfxMessageBox ("Could not load egad7f4") ; 

if (LoadNet (14, "egad7f5") != 14) { 

AfxMessageBox ( "Could not load egad7f5"); 

if (LoadNet (15, "egad7f6") != 15) { 

AfxMessageBox ( "Could not load egad7f6") ; 

if (LoadNet (16, "egad7f7") != 16) { 

^ AfxMessageBox ("Could not load egad7f7") ; 

// load eight networks for each consensus 17-24 

if (LoadNet (17, "egadl4fO") 1= 17) { 

AfxMessageBox ( "Could not load egadl4f"); 

if (LoadNet (18, "egadl4fl") ! =18) { 

AfxMessageBox ( "Could not load egadl4fl") ; 

if (LoadNet (19, "egadl4f2") != 19) { 

AfxMessageBox ( "Could not load egadl4f2"); 

if (LoadNet (20, "egadl4f3") != 20) { 

AfxMessageBox ("Could not load egadl4f3"); 



-53- 




24727-801 F 



if (LoadNet (21, "egadl4f4") 1= 21) { 

AfxMessageBox(" Could not load egadl4f4") ; 

if (LoadNet (22, "egadl4f5") != 22) { 

AfxMessageBox ( "Could not load egadl4f5") ; 

} 

if (LoadNet (23, "egadl4f6") 1= 23) { 

AfxMessageBox ( "Could not load egadl4f6"); 

if (LoadNet (24, "egadl4f 7") != 24) { 

^ AfxMessageBox ( "Could not load egadl4f7"); 

} 

void CPTDinpDoc : : FreeNets ( ) 
{ 

i'"^ for(int i = 1; i <= 24; i++) FreeNet(i); 

□ } 

void CPTDinpDoc : :RianNets (long n) 

W double Val, Vail, frac; 

|^|f| Run first ega6 nets 

j'fj m_NetPosl = 0.0; 

m_NetNegl = 0.0; 

for{inti = 1; i <=8; i++) { 
U // build inputs from record 

U Val = ( (m__ETHNIC_ORIGIN_WHITE == " 1 " ) ?1 . 0 : 0 . 0) ; 

1,^ Put Input ( i , 1 , &Val) ; 

; - Val = ( (m_MARITAL_STATUS_LWP == "1" ) ?1 . 0 : 0 . 0) ; 

Put Input (1,2, fieVal ) ; 
P Val = (double) atof (m_EGA_BY_SONO) ; 

ry frac = Val - floor (Val); 

Val = floor(Val) + (frac / 0.7); 

Put Input ( i , 3 , &Val ) ; 

//Val = (doxible) atof (m_EGA_BY_BEST) ; 

Val = (doiable)atof (m_EGA_BY_LMP) ; 

frac = Val - floor (Val); 

Val = floor (Val) + (frac / 0.7); 

Vail = (double) atof (m_EGA_BY_SONO) ; 

frac = Vail - floor (Vail); 

Vail = floor. (Vail) + (frac / 0.7); 

if (Vail <= 13.0) { 

Val = Vail; 
} else { 

if(fabs(Val - Vail) > 2.0) { 

} else { 

Val = Vail; 

Put Input ( i , 4 , &Val ) ; 

Val = (doxible) atof (m_EGA_AT_SAMPLING) ; 

frac = Val - floor (val) ; 

Val = floor(Val) + (frac / 0.7); 

Put Input (i, 5, &Val) ; 

Val = 0.0; // CD INTERP 

if( m__DILITATION_LTl == "1" ) Val = 0.0; 
if( m_DILITATION_l == "1" ) Val = 1.0; 
if( m__DILITATION_l_2 == "1" ) Val = 1.5; 
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if( m_DILITATI0N_2 == "1" ) Val = 2.0; 

if( m_DILITATION_2_3 == "1" ) Val = 2.0; 

if{ m_DILITATION_3 == "1" ) Val = 3.0; 

if( m_DILITATI0N_GT3 == "1" ) Val = 3.0; 

Put Input ( i , 6 , ScVal ) ; 

Val = 0,0; // Parity- PreTerm 

if( m_2_COMP_l == "1" ) Val = 1.0; 

if( m_2_COMP_2 == "1" ) Val = 2.0; 

if( m_2_COiyiP_3 == "1" ) Val = 3.0; 

Put Input (i, 7, &Val) ; 

Val = ( (m_VAGINAL_BLEEDING == "1" ) ?1 . 0 : 0 . 0) ; 
Put Input ( i , 8 , &Val ) ; 

Val = 1.823197; // CERVICAL CONSISTANCY 
if ( m_CERVICAL_CONSISTANCY_FIRM == "1" ) Val = 
if { Tn_CERVICAL_CONSISTANCY_MOD "1" ) Val = 

if ( m_CERVICAL_CONSISTANCY_SOFT == "1" ) Val = 
Putlnput (i, 9, &Val) ; 

Val = ( (m_l_COMP == " 1 " ) ?1 - 0 : 0 . 0) ; 
Put Input ( i , - 10 , &Val ) ; 

Val = { (m_FFN_RESULT == "1" ) ?1 . 0 : 0 . 0) ; 
Put Input (i, 11- , &Val) ; 

// iterate network 
iterateNet (i) ; 

// build consensus result 
m_NetPosl += GetState (i, 3, 1) / 8.0; 
m__NetNegl += GetState(i/3,2) / 8.0; 



m_NetVall =25. 0 * (m_NetPosl - m_NetNegl) 

// Run first egad7f nets 
m_NetPos2 = 0.0; 
m__NetNeg2 = 0.0; 
for (i = 9; <=16; i++) 

// build inputs from record 

Val = ( (m_ETHNIC_ORIGIN_WHITE == "1 " ) ?l-0 : 0 . 0) 
Put Input ( i , 1 , &Val ) ; 

Val = ( (m_PATIENT_COMPLAINT_l == " 1 " ) ?1 . 0 : 0 . 0) 

Put Input ( i , 2 , &Val ) ; 

Val = (double) atof (m_ABORTIONS) ; 

Put Input ( i , 3 , &Val ) ; 

Val = ( (m_VAGINAL_BLEEDING == " 1 " ) ?1 . 0 : 0 , 0 ) ; 
Put Input (1,4, &Val) ; 
Val = 0.0; //UC_INTERP 

if( m_PATIENT_CORPLAINT_l_LTl == "1" ) Val = 1 
if ( m_PATIENT_COMPLAINT_l_l_3 == "1" ) Val = 2 
if( m_PATIENT_C0MPIiAINT_l_4_6 == "1" ) Val = 3 
if( m_PATIENT_C0MPLAINT_l_7_9 == "1" ) Val = 4 
if ( m_PATIENT_COMPLAINT_l_10_12 == "1" ) Val = 
if ( m_PATIENT_C0MPIiAINT_l_GT12 == "1" ) Val = 
Put Input ( i , 5 , &Val ) ; 

Val = ( (m_0_COMP == "1") ?1. 0:0.0) ; 
Put Input (1,6, &Val ) ; 

Val = ( (m_FFN_RESULT == " 1 " ) ?1 . 0 : 0 , 0 ) ; 
Put Input (1, 7, &Val) ; 

// iterate network 
IterateNet (i) ; 
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1:3 



m 



// build consensus result 
m_NetPos2 += GetState (i, 3, 1) / 8.0; 
^ m__NetNeg2 += GetState (i , 3 , 2) / 8.0; 

m_NetVall2 = 25.0 * (m_NetPos2 -m_NetNeg2 ) ; 

// Run first egadl4f nets 
m_NetPos3 =0.0; 
m_NetNeg3 =0.0; 
for(i = 17; i <=24; i++) { 

// build inputs from record 

Val = ( (m_ETHNIC_ORIGIN_NATIVE-AMERICAN == " 1 " ) ?1 . 0 : 0 . 0) 
Put Input ( i , 1 , &Val ) ; 

Val = ( (m_MARITAL_STATUS_LWP == " 1 " ) ? 1 . 0 : 0 . 0 ) ; 
Put Input ( i , 2 , &Val ) ; 

Val = ( (m_PATIENT_COMPIiAINT_l == " 1 " ) ? 1 . 0 : 0 . 0 ) ; 
Put Input (1,3, &Val ) ; 
Val = 0.0; //CD_INTERP 

if ( m_DILITATION_LTl == "1" ) Val = 0.0; 
if ( m_DILITATION_l == "!»' ) Val = 1.0; 
if ( m_DILITATION_l_2 == "1" ) Val = 1.5; 
m if ( m_DILITATION_2 == "1" ) Val = 2.0; 

y if( m_DILITATION_2_3 == "1" ) Val = 2.1 

\f\ if( Tn_DILITATION_3 == "1" ) Val = 3.0; 

if( m_DILITATION__GT3 == "1" ) Val = 3.i 
Put Input ( i , 4 , &Val ) ; 
Val = 0.0; //UC INTERP 

□ if( m_PATIENT_COMPIiAINT_l_LTl == "1" ) Val = 1.0; 

if( m_PATIENT_COiyiPIiAINT_l_l_3 == "1" ) Val = 2.0; 
if( m_PATIENT_C0MPIiAINT_l_4_6 == "1" ) Val = 3.0, 

:\ if( m_PATIENT_COMPIiAINT_l_7_9 == "1" ) Val = 4.0; 

if( m_PATIENT_COMPIiAINT_l_10_12 == "1" ) Val = 5.0; 

□ if ( m_PATIENT_COMPLAINT_l_GT12 == "1" ) Val = 6.0; 
I'y Put Input ( i , 5 , &Val ) ; 

Val = ( (m_0_COMP == "1" ) ?1 . 0 : 0 . 0) ; 
Put Input ( i , 6 , &Val ) ; 

Val = ( (m_FFN_RESULT == " 1 " ) ?1 . 0 : 0 . 0) ; 
Put Input ( i , 7 , &Val ) ; 

// iterate network 
IterateNet (i) ; 

// build consensus result 
m_NetPos3 += GetState (i , 3 , 1) / 8.0; 
^ m_NetNeg3 += GetState (i , 3 , 2 ) / 8.0; 

m_NetVal3 = 25.0 * (m_NetPos3 -m_NetNeg3) ; 

} 

char* CPTDinpDoc : : time2str ( const CTinie& tm ) 

sprintf (tstr, "%d/%d/%d" , tm.GetMonth () ,tm.GetDay() , 
(tm.GetYear 0 -1900) ) ; 
return tstr; 

} 

CTime& CPTDinpDoc :: str2 time ( CString& str ) 
■ int m,d,y; 
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int ofs; 

strcpy (tstr , str) ; 
m = d = y = 0 ; 
ofs = 0; 

while (tstr [of s] == ' ') ofs++; // skip spaces; 
m = atoi (&tstr [of s] ) ; 

while (tstr [of s] >= '0' && tstr [ofs] <= '9') ofs++; // skip number 

while (tstr [of s] == '/' || tstr[ofs] == '/') ofs++; // skip delimiter 
d = atoi (&tstr [of s] ) ; 

while (tstr [of s] >= '0' && tstr [of s] <= '9') ofs++; // skip number 
while (tstr [of s] == '/' j| tstr [of s] == '-') ofs++; // skip delimiter 
y = atoi (&tstr [of s] ) ; 
if (Y<100) y += 1900; 

tim = CTime (y,m, d, 0, 0, 0) ; 
return (tim) ; 



} 



void CPTDinpDoc: :OnRecGoto() 

CPtdGoto dig; 
int i ; 



etc . 



1; 



// Define and run a dialog to select the search mode and rec number 

dlg,m_IDStr = IDStr; 
dlg.m_RecNum = CurRecord + 1; 
dlg.m^GotoMode = GotoMode; 

if (dlg.DoModalO == IDOK) { 

GotoMode = dig . m_GotoMode ; 
s wi t ch ( GotoMode ) { 
case 0 : 

// record number 
CurRecord = dlg.m_RecNum - 1; 
if (CurRecord < 0) CurRecord = 0; 

if (CurRecord > NumRecords - 1 ) CurRecord = NumRecords 

get_rec (Rec) ; 
break ; 
case 1 : 

// ID String 
IDStr = dlg.m_IDStr; 
for (i = 0; i < NumRecords; i++) { 
CurRecord = i; 
get rec (Rec) ; 

if ( IDStr == m LAB ID ) break; 

} ~ " 

break ; 
default : 

// Do nothing 
break; 

) ' 

} 

void CPTDinpDoc : :OnFileMruFilel 0 
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GetPrivateProf ileString ( "Recent File List", 

"Filel", 
"untitled" , 
PathName , 
128, 

"ptdinp . ini" ) ; 

get_file() ; 

} 

void CPTDinpDoc: : OnFileMruFile2 ( ) 

GetPrivateProf ileString ("Recent File List", 

"File2", 
"untitled" 
PathName , 
128, 

"ptdinp.ini") ; 



get_file() ; 



} 



void CPTDinpDoc: : OnFileMruFileS () 

GetPrivateProf ileString ("Recent File List", 

"File3" , 
"untitled", 
PathName, 
128, 

"ptdinp.ini") ; 



get_f ile { ) ; 



} 



void CPTDinpDoc : :0nFileMruFile4 0 



{ 



} 



GetPrivateProf ileString ("Recent File List", 

"File4 " , 
"untitled" , 
PathName, 
128, 

"ptdinp . ini " ) ; 

get_f ile ( ) ; 



//IpszSection 
/ /IpszEntry 
// IpszDefault 
// IpszReturnBuf f er 
// cbReturnBuf f er 

// IpszFilename 



//IpszSection 
//IpszEntry 
// IpszDefault 
// IpszReturnBuf fer 
/ / cbReturnBuf fer 

// IpszFilename 



/ /IpszSection 
//IpszEntry 
// IpszDefault 
// IpszReturnBuf fer 
// CbReturnBuf fer 

// IpszFilename 



//IpszSection 
//IpszEntry 
// IpszDefault 
// IpszReturnBuf fer 
/ / cbRe t ur nBuf fer 

// IpszFilename 



void CPTDinpDoc: :OnFileOpen() 
//FILE *fp; 

// Get the File Name 

CFileDialog Dig (TRUE, " fdb" , NULL, OFN_OVERWR I TE PROMPT , 

"FD,B iles (*.fbd) | * . f db | | " ) ; 
Dlg.m_ofn. IpstrTitle = "Open Fixed length DataBase f ile" ; 
if ( Dlg.DoModalO == IDOK ) { 

strcpy( PathName, Dig. Get PathName 0 ) ; 

AfxGetApp 0 ->AddToRecentFileList (PathName) ; 
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get_file() ; 

#ifdef NOT 

CurRecord = 0; 

fp = f open (Pat hName, "rb" ) ; 

if(fp==NULL) { 

fp = f open (PathName, "wb" ) ; 
if(fp!=NULL) { 

f write (Rec; sizeof (char) , (REC_LENGTH+2L) , fp) ; 

f close (fp) ; 

NumRecords = 1 ; 
CurRecord = 0 ; 
InitializeRec { ) ; 
put_rec (Rec) ; 
get_rec (Rec) ; 
} else { 

1"=^ CurRecord = 0; 

r3 if (fread(Rec, sizeof (char) , (REC__LENGTH+2 L) ,fp) == (REC_LENGTH+ 

h 2 L) { 

P get_rec (Rec) ; 

l«M f seek (fp, OL, SEEK^END) ; 

|,y NumRecords = ftell(fp) / (REC_LENGTH+2L) ; 

\^ f close (fp) ; 



m 



} 

#endif 



uJ. } 



void CPTDinpDoc :: get 'file 0 

|2 FILE *fp; 

CurRecord = 0; 

f p = f open ( PathName , " rb " ) 

if(fp==NULL) { 

fp = fopen (PathName, "wb") ; 
if(fp!=NULL) { 

fwrite (Rec, sizeof (char) , (REC_LENGTH+2L) , fp) ; 

f close (fp) ; 

NumRecords = 1 ; 
CurRecord = 0 ; 
InitializeRec ( ) ; 
put_rec (Rec) ; 
get_rec (Rec) ; 
} else { 

CurRecord = 0 ; 

if (f read (Rec, sizeof (char) , (REC_LENGTH+2L) , fp) == (REC_LENGTH+2L) ) 

get_rec(Rec) ; 
fseek(fp, OL,SEEK_END) ; 

NumRecords = ftell(fp) / (REC__LENGTH+2L) 
f close (fp) ; 
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( ( CPTDinpApp* ) Af xGetApp ( ) ) - >SaveMRU ( ) ; 
} 



PTDinp.cpp : Defines the class behaviors for the application. 
// 

#include "stdafx.h" 
#include "PTDinp.h" 

#include "mainfrm.h" 
#include "PTDidoc.h" 
#include "PTDivw.h" 

#ifdef _DEBUG 
#undef THIS_FILE 

static char BASED_CODE THIS_FILE[] = FILE ; 

#endif 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
/ / C PTD i np App 

BEGIN_MESSAGE__MAP (CPTDinpApp, CWinApp) 
// { { AFX_MSG_MAP (CPTDinpApp) 
ON_COMMAND ( ID__APP__ABOUT , OnAppAbout ) 
ON_COMMAND ( ID_CLR_SUB FIELDS , OnClrSubf ields ) 
ON COMMAND(ID_EDIT_MODE, OnEditMode) 
/ /y } AFX_MSG_MAP 

// Standard file based document commands 
ON_COMMAND ( ID_FILE_NEW, CWinApp : : OnFileNew) 
ON_COMMAND ( ID_FILE_OPEN, CWinApp : : OnFileOpen) 
// Standard print setup command 

ON_COMMAND ( ID_FILE_PRINT_SETUP , CWinApp : : OnFilePrint Setup) 
END_MESSAGE_MAP ( ) 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// CPTDinpApp construction 

CPTDinpApp : : CPTDinpApp ( ) 

// TODO: add construction code here, 

// Place all significant initialization in Initlnstance 
m_pDoc = NULL ; 
EditMode = FALSE; 
ClearSubf ields = FALSE; 

} 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// The one and only CPTDinpApp object 

CPTDinpApp NEAR theApp; 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// CPTDinpApp initialization 
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BOOL CPTDinpApp : : Initlnstance ( ) 
// Standard initialization 

// If you are not using these features and wish to reduce the size 
// of your final executable, you should remove from the following 
// the specific initialization routines you do not need. 

SetDialogBkColor ( ) ; // Set dialog background color to gray 

LoadStdProf ileSettings { ) ; // Load standard INI file options 

(including MRU) 

// Register the application's document templates. Document templates 
// serve as the connection between documents, frame windows and 

views . 

CSingleDocTemplate* pDocTemplate ; 
pDocTemplate = new CSingleDocTemplate ( 

IDR_MAINFRAME , 

RUNTIME_CLASS(CPTDinpDoc) , 

RUNTIME__CLASS (CMainFrame) , // main SDI frame window 
RUNTIME_CLASS (CPTDinpView) ) ; 
AddDocTemplate (pDocTemplate) ; 

// create a new (empty) document 

OnFileNewO ; 

if {m_lpCmdLine [0] != '\0') 

// TODO: add command line processing here 



ClearSubf ields = TRUE; 
// check the menu item 

CMenu* pMenu = Af xGetApp () ->m_j5MainWnd- > Get Menu () 
pMenu- >CheckMenuI tem . ( ID_CLR_SUB FIELDS , MF_CHECKED) 

return TRUE; 

} 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 

// CAboutDlg dialog used for App About 

class CAboutDlg : piiblic CDialog 

{ 

public: 

CaboutDlg ( ) ; 

// Dialog Data 

/ / [ ( AFX_DATA ( CAboutDlg) 
enum { IDD = IDD_ABOUTBOX } 
//} }AFX_DATA 

// Implementation 
protected : 

virtual void DoDataExchange (CDataExchange* pDX) ; //DDX/DDV support 
//{{AFX MSG (CAboutDlg) 

/7 No message handlers 
//} }afx_msg 
declare message map ( ) 

}; 
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CAboutDlg : : CaboutDlg ( ) : CDialog (CAboutDlg : : IDD) 

/ / { { AFX__DATA_INIT (CAboutDlg) 
// } I AFX_DATA_INIT 



void CAboutDlg: iDoDataExchange (CDataExchange* pDX) 

CDialog: :DoDataExchange (pDX) ; 
// { {AFX_DATA_MAP (CAboutDlg) 
/ / { {AFX_DATA_MAP 



BEGIN_MESSAGE_MAP (CAboutDlg , CDialog) 

// { {AFX MSG_MAP (CAboutDlg) 

/7 No message handlers 

/ / } } AFX_MSG_MAP 
END_MESSAGE_iyiAP ( ) 

// App command to run the dialog 
void CPTDinpApp : : OnAppAbout ( ) 

CAboutDlg aboutDlg; 

aboutDlg . DoModal ( ) ; 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
/ / C PTD i npApp commands 



void CPTDinpApp: :OnClrSubfields { ) , 

if (ClearSubf ields) = FALSE; 

// uncheck the menu item 

CMenu* pMenu = AfxGetApp ( ) >m_pMainWnd->GetMenu ( ); 
pMenu->CheckMenuItem (ID_CLR_SUBFIELDS, MF_UNCHECKED) ; 

} else { 

ClearSubf ields = TRUE; 
// check the menu item 

CMenu* pMenu = Af xGetApp ( ) - >m_pMainWnd- >GetMenu ( ) ; 
pMenu- >CheckMenuI tem ( ID_CLR_SUBFIEIiDS , MF__CHECKED) ; 

} 

} 

void CPTDinpApp: :OnEditMode ( ) 



if (Edit Mode) { 

Edit Mode = FALSE; 

// uncheck the menu item 

CMenu* pMenu = AfxGetAppo ( ) >mj)MainWnd->GetMenu ( ); 
pMenu- >CheckMenuItem ( ID_EDIT_MODE , MF_UNCHECKED) ; 

} else { 

Edit Mode = TRUE; 
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// check the menu item 

CMenu* pMenu = AfxGetApp ( ) ->m_pMainWnd->GetMenu ( ) ; 
pMenu- >CheckMenui tern { ID_EDIT_MODE , MF_CHECKED) ; 

} 

} 

void CPTDinpApp : : SaveMRU ( ) 

{ 

SaveStdProf ileSettings ( ) ; 

} 

; endoinp.def : Declares the module parameters for the application. 
NAME ENDOINP 

DESCRIPTION ' lENDOINP Windows Application' 
EXETYPE WINDOWS 

CODE PRELOAD MOVEABLE DISCARDABLE 

DATA PRELOAD MOVEABLE MULTIPLE 

HEAPSIZE 1024 ; initial heap size 

; Stack size is passed as argument to linker's /STACK option 

// PTDinp.h : main header file for the PTDINP application 

// 

# i f nde f AFXWIN H 

#error include 'stdafx.h' before including this file for PCH 

#endif 

#include " resource. h" // main symbols 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// CPTDinpApp: 

// See PTDinp.cpp for the implementation of this class 
// 

#include " PTDidoc . h" 

class CPTDinpApp : public CWinApp 

public: 

CPTDinpApp ( ) ; 

CPTDinpDoc *m j)Doc ; 

int NextDlgPage; 
int LastDlgPage; 
BOOL EditMode; 
BOOL ClearSubf ields ; 

CPTDinpDoc *GetDoco ( ) { 
return m__pDoc; 



void SaveMRU ( void ) ; 

// Overrides 

virtual BOOL Initlnstance ( ) ; 

// Implementation 
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// { {AFX_MSG (CPTDinpApp) 

afx_msg void OnApp About ( ) ; 

afx_msg void OnClrSubf ields ( ) ; 

afx msg void OnEditMode ( ) ; 

//ITAFX__MSG 

DECLARE MESSAGE MAP ( ) 

}; ~ " 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 

// PTDivw.cpp : implementation of the CPTDinpView class 

ttinclude " stdaf x . h" 
#include "PTDinp.h" 

#include "PTDidoc.h" 
#include "PTDivw.h" 

□ #include "PTDdlgl.h" 



id 



ttifdef _DEBUG 
#undef THIS_FILE 

static char BASED_CODE THIS_FILE [ ] = FILE ; 

ly #endif 

y /////////////////////////////////////////////////////////////////////////// 
'•'^^ /////////////////////////////////////////////////////////////////////////// 

IJ^ // CPTDinpView 

jU IMPLEMENT_DYNCREATE (CPTDinpView, Cview) 

; ^ BEGIN_MESSAGE_MAP (CPTDinpView, CView) 

//{ { AFX_MSG_MAP ( CPTDinpView) 
IP ON COMMAND (ID_DATA_EDIT, OnDataEdit) 

m ON COMMAND (ID_DATA_NEW, OnDataNew) 

// } }afx_msg__map 

// Standard printing commands 

ON COMMAND (ID_FILE_PRINT, CView: rOnFilePrint) 

ON COMMAND (ID_FILE_PRINT_PREVIEW, CView: : OnFilePrintPreview) 
END_MESSAGE_MAP ( ) 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 

// CPTDinpView construction/destruction 

CPTDinpView: : CPTDinpView ( ) 
I 

// TODO: add construction code here 
ShowPrt = FALSE; 

} 

CPTDinpView: : -CPTDinpView ( ) 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// CPTDinpView drawing 

void Checkout (CDC* pDC, char *str, int xpos, int ypos, int val) 
pDC->TextOut ( xpos, ypos, str, strlen(str) 
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pDC ->Rectangle (CRect ( xpos - 6*29, ypos - 2*29, xpos - 2*29, 
ypos - 6*29) ) ; 
if(val) { 

CBrush brush (RGB (0,0,0)); 

pDC->FillRect (Greet { xpos - 6*29, ypos - 2*29, xpos - 
2*29, ypos 6*29) , &brush) 

// pDC->MoveTo (xpos - 6*29, ypos - 2*29); 
// pDC->LineTo( xpos - 2*29, ypos - 6*29); 
// pDC->MoveTo (xpos - 6*29, ypos - 6*29); 
// pDG->LineTo( xpos - 2*29, ypos -2*29); 

void CPTDinpView: :OnDraw (CDC* pDC) 

CPTDinpDoc* pDoc = GetDocument ( ) ; 
CPTDinpApp* pApp = ( (CPTDinpApp* ) Af xGetApp ( ); 

ASSERT_VALID (pDoc) ; 
i;3 CFont fontlO, fontl2; 

i;3 TEXTMETRIC tm; 

' U int nHeight ; 

w 

l.y // TODO: add draw code for native data here 

m pDC- >SetMapMode (MM_TWIPS) ; 

fontl2.CreateFont (-240, 0, 0, 0, 500, FALSE, FALSE, 0, ANSI-CHARSET, 
OUT_DEFAULT_PRECIS , CLIP__DEFAULT_PRECIS , 

DEFAULT_QUAZITY, DEFAULT_PITCH | FF_ROMAN, "Times New Roman" ) ; 
CFont* pOldFont = (CFont*) pDC->SelectOb-ect (&f ontl2) ; 



m 



pDC->GetTextMetrics (&tm) ; 

nHeight = tm.tmHeight + tm. tmExtemalLeading; 

char str[2561; 
char name [64] ; 

//pDC- >Rectangle (CRect (0, 0, 11505, -15105)); // FULL PAGE RECT 

if(ShowPrt) { 

if ( !pApp->EditMode) { 

sprintf (str, " ADEZA DIAGNOSTIC SERVICES"); 

pDC->TextOut ( 2440, ({-1 * nHeight) - 720), str, strlen (str) ) ; 

sprintf (str, "Pre-Term Delivery Risk Assessment Software:"); 
PDC->TextOut ( 2440, ((-2 * nHeight) - 720), str, strlen(str) ); 

sprintf (str, " Test Report Form ") ; 

pDC->TextOut { 2440, ((-3 * nHeight) - 720), str, strlen (str) ) ; 

} else { 

sprintf (str, "File: %s " , pDoc- >PathName) ; 

pDC->TextOut ( 720, ((-1 * nHeight) - 720), str, strlen(str) 

) ; 

sprintf (str, "Current record: %ld if, pDoc->CurRecord+l) ; 

pDC->TextOut ( 720, ((-2 * nHeight) - 720), str, strlen(str) ); 

sprintf (str, "Number of records: %ld "pDoc->NumRecords) ; 
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U ) 



pDC'>TextOut ( 720, ((-3 * nHeight) - 720), str, strlen(str) ); 

if((ShowPrt && lpApp->EditMode) | | (iShowPrt)) { 

sprintf (str, " Lab ID #:"); 

pDC->TextOut ( 720, ((-5 * nHeight) - 720), str, strlen(str) ) ; 

sprintf (str, " %s " , PDoc->m_IiAB_ID) ; 

pDC->TextOut ( 4320, {(-5 * nHeightT - 720), str, strlen(str) ) ; 

strcpy( name, pDoc->m_NAME_F) ; 

strcat ( name, " ") ; 

strcat ( name, ' pDoc->m_NAME_MI) ; 

strcat ( name, " "); 

strcat ( name, pDcc->m_NAME_L) ; 

sprintf (str, " " Patient Name: "); 

pDC->TextOut ( 720, ((-6 * nHeight) - 720), str, strlen(str) 



sprintf (str, " %s " , name) ; 

pDC->TextOut ( 4320, ((-6 * nHeight) - 720), str, 

^'^ strlen(str) ) ; 

i,y pDoc->RvinNets (pDoc->CurRecord) ; 

h:J sprintf (str, " Pre-term Delivery Risk <34.6wks: " ) ; 

i'S pDC'->TextOut ( 720, H-7 * nHeight) - 720), str, strlen(str) ); 

sprintf (str, " %lf " , pDoc- >m NetPosl ) ; 
t.M pDC->TextOut ( 4320, ((-7 * nileight) - 720), str, strlen(str) ); 



sprintf (str, " Pre-term Delivery Risk <7 days: "); 

pDC->TextOut ( 720, ((-8 * nHeight) - 720), str, 
strlen(str) ) ; 

sprintf (str, " %lf ",pDoc->m - NetPos2) ; 

pDC->TextOut ( 4320, ((-8 * nHeight) - 720), str, 
strlen(str) ) ; 

sprintf (str, " Pre-term Delivery Risk <14 days: "); 

pDC->TextOut ( 720, ((-9 * nHeight) - 720), str, 
strlen(str) ) ; 

sprintf (str, " %lf ",pDoc->m - NetPos3) ; 

pDC->TextOut { 4320, ((-9 * nHeight) 720), str, 
strlen(str) ) ; 

//if(pDoc->m - ACOG^SYNPTOMS == "0") { 

// sprintf (str, "DISCLAIMER APPLIES :") ; 

// pDC->TextOut ( 720, ((-12 * nHeight) - 720), str, strlen(str) 

) ; 

//} 

for( i = 5; i <= 10; i++) -{ 

pDC->MoveTo(70 0, ( (-i nHeight) 720) ) ; 

DC->LineTo (864 0, ((-i nHeight) 720)); 



pDC->iyioveTo(700, ((-5 nHeight) - 720)); 

pDC->LineTo(700, ((-10 nHeight) _ 720)); 

pDC->MoveTo(432 0, ( (-5 nHeight) 720)) ; 

pDC->LineTo (4320, ((10 * nHeight) - 720) 
pDC->MoveTo(864 0, ( (-5 nHeight) 720) ) ; 

pDC->LineTo(8640, ( (-10 * nHeight) - 720)); 
} else { 
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fontlO .CreateFont (-200, 0, 0, 0, 500, FALSE, FALSE, 0, ANSI_CHARSET, 
OUT DEFAULT PRECIS, CLIP DEFAULT PRECIS, 

DEFAULT QUALITY, DEFAULT_PITCH I-FF_ROMAN, "Times New Roman"); 
pDC->SelectObject (&fontlO) ; 

//pDC->Rec tangle (CRect ( 0, 0, 11505, -15105) ) ; 
pDC ->Rec tangle (CRect ( 1*29, -4*29,397*29, -22*29) ) ; 
pDC->Rect angle (CRect ( 1*29, -24*29 , 397*29 , -42*29) ) ; 
pDC->Rect angle (CRect ( 1*29, -44*29 , 187*29 , -95*29) ) ; 
pDC->Rectangle (CRect ( 187*29, -44 *29 , 397*2 9 , -95*29) ) ; 
pDC->Rect angle (CRect ( 1*29, - 97*29 , 397*29 , -114*29) ) ; 
pDC->Rectangle (CRect ( 1*29, - 116*29 , 3 97*2 9 , -218*29) ) ; 
pDC->Rec tangle (CRect ( 1*29, -22 0*2 9 , 397*29 , -240*2 9) ) ; 
pDC->Rectangle (CRect ( 1*29, -242*29, 187*29, -348*29) ) ; 
pDC->Rectangle (CRect ( 187*29, -242*29 , 397*29 , -348*29) ) ; 
pDC->Rec tangle (CRect ( 1*29, -350*29 , 397*29 , -375*29) ) ; 
pDC->Rec tangle (CRect ( 1*29, -377*29, 397*29, -404*29) ) ; 
pDC->Rec tangle (CRect ( 1*29, -406*29 , 397*29 , -425*29) ) ; 
pDC->Rectangle (CRect ( 1*29, -427*29, 397*29, -470*29) ) ; 
sprintf (str, "ADEZA Pre -Term Delivery Risk Assessment ") ; 
pDC->Textout ( 7*29f -10*29, Str, strlen(str) ); 
sprintf (str, "Lab ID #: %s", pDoc->m - LAB_ID) ; 
pDC->TextOut ( 267*29,-10*29, str, strlen(str) ); 
sprintf (st . r , "PATIENT INFORMATION" ) ; 
pDC->TextOut ( 159*29,-29*29, str, strlen(str) ); 
s t r cpy ( name , pDo c - >m__NAME_L ) ; 
sprintf (str, "Name (las' E) %s", name) ; 
pDC->TextOut ( 7*29,-51*29, str, stzlen(str) ); 
strcpy( name, pDoc->m NAME F) ; 
sprintf (stx, "First %s, name) ; 

PDC->TextOut ( 99*29,-51*29, str, strlen(str) ); 
s trcpy ( name , pDoc - >m_NAME_MI ) ; 
sprintf (str , "M %s", name) ; 

pDC->TextOut ( 160*29,-51*29, str, strlen(str) ); 
sprintf (str, "DOB %s" , pDoc->m_DATE_OF_BIRTH) ; 

pDC->TextOut ( 7*29,-69*29, str, strlen(str) ); 

sprintf (str, "Ethnic origin: ") ; 

pDC->TextOut ( 192*29,-48*29, Str, strlen(str) ); 

Checkout (pDC, "Caucasian", 248*29,-48*29, (pDoc->m_ETHNIC__ORIGIN_WHITE = = 
"1") ); 

Checkout (pDC, "African American", 298*29, -48*29, 
(pDoc - >m_ETHNIC_ORIGIN_BLACK == 
"1") ); 

Checkout (pDC, "Asian", 368*29,-48*29, (pDoc- >m__ETHNIC_ORIGIN_ASIAN = ="1") 
Checkout (pDC, "Hispanic", 248*29,-59*29, (pDoc- >m_ETHNIC_ORIGIN_HISPANIC = 

= "1-) 
) ; 

Checkout (pDC, "Native American" , 298*29,-59*29, 
(pDoc - >m_ETHNIC_ORIGIN_NATIVE_AME 
RICAN = ="1") ) ; 

Checkout (pDC, "Other", 368*29, -59*29, (pDoc->m_ETHNIC- ORIGIN- OTHER 
sprintf (str, "Marital status : " ) ; 

pDC->TextOut ( 192*29,-72*29, str, strlen(str) ); 

Checkout (pDC, "Married", 248*29,-72*29, (pDoc- >m_MARITAL_STATUS_MARRIED = 
= "1") 

Checkout (pDC, "Single", 288*29,-72*29, (pDoc->m - MARITAL_STATUS_S INGLE 
Checkout (pDC, "Divorced/Separated", 322*29, -72*f9, 
(pDoc - - >m_MARITAL_STATUS_DI VORC 
ED = ="1") ) ; 
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Checkout (pDC, "Widowed", 248*29,-83*29, (pDoc- >m_MARITAL_STATUS_WIDOWED = = 
"1") ) 

Checkout (PDC, "Living with partner", 293*29,-83*29, 
(pDoc - >m_MARITAL_STATUS_LWP= 
= "1") ) ; 

Checkout (pDC, "Other", 368*29,-83*29, (pDoc->m_iyiARITAL_STATUS_OTHER = = 
"1") ; 

sprintf (str, "PATIENT HISTORY AND CLINICAL INFORMATION") ; 
pDC->TextOut ( 117*29,-102*29, str, strlen(str) ); 

sprintf (str, "At the time of sampling was the patient experiencing signs and 

symp 

toms of possible preterm labor?"); 
pDC->TextOut ( 7*29,-119*29, str, strlen(str) ); 

Checkout (pDC, "Yes", 339*29, -119*29, (pDoc- >m__ACOG_SYMPTOMS = = "1") ); 
Checkout (pDC, "No" , 370*29,-119*29, (pDoc->m_ACOG ^SYMPTOMS = = "0") 
sprintf (str , "It yes, please mark all that apply. "); 
pDC->TextOut ( 7*29,-134*29, str, strlen(str) ); 

Checkout (pDC, "Uterine contractions with or without pain", 19*29,-145*29, 
(pDoc-> 

m_PATIENT_COMPLAINT 1 = = "1") ); 
sprintf (str, "Number/hr") ; 

PDC->TextOut ( 22*29,-158*29, str, strlen(str) ) ; 

Checkout (pDC, "<1", 73*29,-158*29, {pDoc->m_PATIENT_COMPLAINT_l_LTl = = 

"1") )/ 

Checkout (pDC, 111-3", 105*29,-158*29, (pDoc- >m_PATIENT_C0MPLAINT_l_l_3 = = 
"1") ); 

Checkout (pDC, "4-6' 1, 137*29,-158*29, (pDoc- >m_PATIENT_COMPLAINT 1_4_6 = = 

"1") ); 

Checkout (pDC, "7-911, 73*29, -170*29, (pDoc- >m_PATIENT_COMPLAINT_l_7_9 == 

"1") ); 

Checkout (pDC, "10-12" , 105*29, -170*29, (pDoc7>m_PATIENT_COMPLAINT_l_10_12 = 

= " 1 " ) 

Checkout (pDC, ">12" , 137*29,-170*29, (pDoc- >m_PATIENT_COMPLAINT_l GT12 = = 
"1") ; 

Checkout (pDC, "Vaginal bleeding", 19*29, -181*f 9, (pDo-c - 
>m_VAGINAL_BLEEDING = = "1" 
) ); 

Checkout (pDC, "Trace" , 29*29, -194*29, {pDoc->m VAGINAL_BLEEDING_TRACE = 

= "1") ) ; 

Checkout (pDC, "Med", 64*29,-194*29, (pDoc->m_VAGINAL_BEEEDING_MEDIUM = = 
"1") )/ 

Checkout (pDC, "Gross", 94*29, -194*29, (pDoc->m VAGINAL BLEEDING 

GROSS 

= = "1") ) ; 

Checkout (PDC, "Patient is not ""feeling right"7111,. 19*2-9,-205*29-, 

( pDo c - >m_PAT I ENT 
C0MPLAINT_6 = = - " 1 " ) ) ; 

Checkout (pDC, "Bleeding during the second or third trimester", 
167*29, -14S*29, (p 
Doc->m-PATIENT_COMPLAINT_3 = = "1") ); 

Checkout (pDC, "Intermittent lower alDdominal pain, dull, low backpain, 
pelvic pres 

sure", 167*29,-157*29, (pDoc- >m_PATIENT_COMPLAINT_2 = = "1") ) ; 

Checkout (pDC, "Change in vaginal discharge_amount , color, or consistency", 

167 

*29, -181*29, (pDoc->m_PATIENT__COMPLAINT 5= ="1") ); 
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Chec kOut (pDC, 7Menstrual- like crimping (with or without diarrhea)", 
167*29, -193*2 

9, (pDoc->m_PATIENT_C0MPLAINT_4 = = "1") ); 

sprintf (str, "Gestational Age: EGA by first trimester sono %s 
pDoc - >m_EGA_BY_S 
ONO) ; 

PDC->TextOut ( 7*29,-225*29, str, strlen(str) ); 

sprintf (str, "EGA by LMP %s", pDoc->m_EGA_BY_LMP) ; 

pDC->TextOut ( 197*29,-225*29, str, strlen(str) ); 

sprintf (str , "EGA at sampling %s " , pDoc- >m_EGA_AT_SAMPLING) ; 

pDC->TextOut ( 287*29,-225*29, str, strlen(str ) ) ; 

sprintf (str , "Previous Pregnancy: Please mark all that apply."); 

pDC->TextOut ( 7*29,-249*29, str, strlen(str) ); 

Checkout (pDC, "Previous pregnancy, no complications", 19*29,-260*29, 
(pDoc - >m_l_COMP = = " 1 " ) ) ) ; 

Checkout (pDC, "History of Preterm delivery", 19*29, -272*29, 

(pDoc->m_2_COMP = = "1") ); 

sprintf (st . r, "if Yes, how many?"); 

PDC->TextOut ( 22*29,-284*29, str, stzlen(str) ); 

Checkout (pDC, 111", 97*29,-284*29, (pDoc- >m_2_COMP_l = = "1',) 
•'^ Checkout (pDC, "2", 122*29,-284*29, (pDoc- >m_2_COMP_2 = = "1") 

'•R Checkout (pDC, ">2 11, 147*29,-284*29, (pDoc- >m_2_COMP_3 = = "1") ); 

i,y Checkout (pDC, "History of Preterm PROM" 19*29, - 269*29, (pDoc- >m_3_C0MP = = 

i,g "1") ); 

in 

Checkout (pDC, "History of incompetent cervix", 19*29,-308*29, 
(pDoc->m_4_COMP = = "1") ); 
n Checkout (pDC, "History of PIH/preeclampsia" , 19*29,-320*29, (pDoc->m_5_COMP 

= = "1" ) ) ; 

Checkout (pDC, "History of SAB prior to 20 wks", 19*29,-332*29, 
: (pDoc->m_6_C0MP = = "1") )/ 

'•■'^ Checkout (pDC, "Multiple Gestation:", 209*29,-272*29, 

M (pDoc->m_MULTIPLE_GESTATION == "1")); 

n Checkout (pDC, "Twins", 284*29,-272*29, (pDoc->m_MULTIPLE_GESTATION_TWTNS == 

"1") ); 

Checkout (pDC, "Triplets", 317*29,-272*29, (pDoc - >m_MULTI 
PLE_GESTATION_TRIPLETS = = "1") ); 

Checkout (pDC, "Quads", 356*29,-272*29, (pDoc- >m_MULTIPLE_GESTATION_QUADS = 
= "1") ) ; 

Checkout (pDC, "Uterine or cervical abnormality", 209*29,-284*29, 
pDoc - >m_UTCERV_ABNORMALITY = - " 1 " ) ) ; 

Checkout (pDC, "Cerclage" , 209*29,-296*29, (pDoc->m_CERVICAL_CERCIiAGE == "1") 
); Checkout (pDC, "Gestational Diabetes " . 209*29, -308*-f 9, (pDo 
c7>m_GESTATI0NAL_DIABETES = = " 1 " ) ) ; 

Checkout (pDC, "Hypertensive Disorders". 209*29,-320*29, 
(pDoc->m_HYPERTENSIVE_DISORDERS = ="1") ); 

sprint f (s tr, "Cervical Status immediately following sample 

collection:") ; 

pDC->TextOut ( 7*29,-352*29, str, stzlen(str) ) ; 
sprintf (str, "Dilatation (cm) " ) ; 

PDC->TextOut ( 9*29,-364*29, str, strlen(str) Checkout (pDC, "<1" , 
64*29,-364*29, (pDoc - >m_DILITATION_LTl = = "1") 

Checkout (pDC, ' 11" , 85*29,-364*29, (pDoc- >m_DILITATION_l = = "1") ) ; 
Checkout (pDC, "1-2", 102*29,-364*29, (pDocl- >m_DILITATION_l_2 = = "1") 
Checkout (pDC, 1121', 123*29, -364*29, (pDoc- >m_DILATI0N_2= = "1") ) ; 
Checkout (pDC, "2-3", 140*29 , -364*29f (pDoc-m_DILITATION_2_3 == "1") ); 
Checkout (pDC, '13", 163*29,-364*29, (pDoc- >m_DILATION_3= = "1") ) ; 
Checkout (pDC, ">3' 1, 180*29,-364*29, (pDoc- >m, _DIIjATI0N_GT3 = = "1") ); 
Checkout (pDC, "Unknown", 201*29,-364*29, (pDoc- >m_DILITATION__UNKNOWN = = 
"1") ); 

sprintf (str , "Cervical consistancy " ) ; 



i"y 
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pDC->TextOut ( 249*29,-364*29, str, strlen(str) ); 

Checkout (pDC, "Firm", 324*29,-364*29, (pDoc->m_CERVICAL_CONSISTANCY_FIRM = 
= "1") ) ; 

Checkout (pDC, "Mod" , 350*29,-364*29, (pDoc->m_CERVICAL_CONSISTANCY_MOD = = 
"1") ); 

Checkout (pDC, "Soft", 376*29,-364*29, (pDoc- >m_CERVICAL_CONSISTANCY__SOFT = 
= "1" ) ) ; 

sprintf (str, "Medications at Time of Test (check all that apply)"); 
pDC->TextOut ( 7*29,-380*29, Str, strlen(str) ); 

Checkout (pDC, "Antibiotics", 23*29,-392*29, (pDoc- >m_ANTIBIOTICS = = "1") 
) ; 

Checkout (pDC, "Corticosteroids" , 76*29,-392*29, (pDoc->m_CORTICOSTEROIDS = = 

" 1 " ) ) ; 



Checkout (pDC, "Tocolytis", 144*29, -392*29, (pDoc- >m_TOYOLYTICS = = "1" 
Checkout (pDC, "Insulin", 193*29,-392*29, (pDoc->m_INSULIN = = "1") ); 
Chec kOut (pDC, "Antihypertensives ", 234*29,-392*29, 
(pDoc->m_ANTIHYPERTENSIVES = = "1") •) ; 

Checkout (pDC, "None", 311*29,-392*29, (pDoc->m_MEDICATIONS_NONE == "1") 
Checkout (pDC, "Unknown", 348*29 ., -392*29, (pDoc'-7>m MED I CAT I Z5NS -UNKNOWN 
sprintf (str, "Current Pregnancy: G: %s", pDoc->m_GRAVITY) ; 



) ; 



) ; 



pDC->TextOut 
sprintf (stz , 
pDC- >Textout 
sprintf (str 
pDC->Textout 
sprintf (str 
PDC->TextOut 
Checkout (pDC 
Checkout (pDC 
sprintf (str 
pDC->TextOut 
sprintf (st . r 
pDC->TextOut 
sprintf (str, 
pDC->TextOut 
sprintf (str, 
PDC->TextOut 
sprintf (str 
pDC- >TextOut 
sprintf (str, 
pDC- >TextOut 



) ; 



) ; 
) ; 



195*29,-249*29, str, strlen(str) 
P: %s", pDoc->m_PARITY) ; 

303*29f-249*29, str, strlen(str) 
" A : %S " , pDoc - >m_ABORTIONS ) ; 
343*29,-249*29, str, strlen(str) 
"Qualitative fFN Elisa Test Results:"); 
7*29,-411*29, str, strlen(str) ); 

"Positive", 144*29,-411*29, (pDoc- >m_FFN_RESULT = = "1") ); 

"Negative", 234*29,-411*29, (pDoc->m FFN_RESULT = ="0") ); 

"Pre-term Delivery Risk <34.6wks: "); 

7*29,-432*29, str, strlen(str) ) ,- 
" %If ",pDoc->m - NetPosl) ; 

150*29,-432*29, str, strlen(str) ); 
Pre-term Delivery Risk <7 days: "); 

7*29, -444*29, str, strlen(str) ); 

%If ",pDoc->m - NetPos2) ; 

150*29, -444*29, str, strlen(str) 

"Pre-term Delivery Risk <14 days: 

7*29, -456*29, str, strlen(str) ); 

%If ",pDoc->m NetPos3) ; 

150*29, -456*29, str, strlen{str) ); 



) ; 
") ; 



//if (pDoc->m ACOG__SYNPTOMS = = "0") { 

// sprintf (str, "DISCLAINER APPLIES: "); 

// pDC->TextOut ( 7*29, -480*29, str, strlen(str) );* 

//} 

} 

pDC->SelectObject (pOldFont) ; 

} 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 

// CPTDinpView printing 

BOOL CPTDinpView: :OnPreparePrinting(CPrintlnfo* pinfo) 



{ 



// default preparation 

return DoPreparePrinting (pinf o) ; 
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} 

void CPTDinpView: :OnBeginPrinting(CDC* /*pDC*/, CPrintlnfo* /*pInfo*/) 



// TODO: add extra initialization before printing 
ShowPrt = TRUE; 



} 



void CPTDinpView: :OnEndPrinting (CDC* /*pDC*/, CPrintlnfo* /*pInfo*/) 

// TODO: add cleanup after printing 
ShowPrt = FALSE; 

GetDocument ( ) ->UpdateAl 1 Views (NULL) ; 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
//CPTDinpView diagnostics 

p #ifdef_DEBUG 

g void CPfDinpView: : Assert Valid ( ) const 

F» } 

i''** CView: :AssertValid ( ) ; 

KU } 

ly I void CPTDinpView: : Dump (CDuinpContext& dc) const 

jlj?^ CView : : Dump ( dc ) ; 

CPTDinpDoc* CPTDinpView: : GetDocument ( ) // non-debug version is inline 

|U ASSERT (m_pDocument - >IsKindOf (RXJNTIME_CLASS (CPTDinpDoc) ) ) ; 

1,^ return ( CPTDinpDoc * ) m j)Document ; 

Q ttendif //JDEBUG 

ru 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// CPTDinpView message handlers 

void CPTDinpView: :Edit ( ) 

CPTDInp dig; 
int val; 

( (CPTDinpApp*) AfxGetApp ( ) ) ->NextDlgPage = 1; 
m_pSet = GetDocument ( ) ; 

// initialize all the variables in the record to allow smooth cancel 
///dlg.m - DATE_OF_DATA_ENTRY = m_P_Set - >m_DATE__OF_DATA-ENTRY; 
/ /dig . M_PATIENT_AGE = M_pSet - >m_PATIENT-AGE ; 
//est ring m. .__DATE_OF_BIRTH; 

dig . m_DATE_OF_BIRTH = m, _pSet- >m_DATE_OF_BIRTH; 
//est ring m_NAME_F; 

dlg.m_NAME_F = m_pSet - >m_NAME_F; 
//est ring m_NAME_L; 

//dlg.m_NAME_L = m_pSet ->m_NAME_L; 
//estring m_NAME_MI ; 

dig . m_NAME_RI = M_pSet- >m_NAME__MI ; 
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//BOOL 
//dlg.m 
//BOOL 
//dlg.m 
//BOOL ' 
//dlg.m 
//BOOL 
//dlg.m 
//BOOL 
//dlg.m 
//BOOL 
//dlg.m_ 

//BOOL m_ACOG_N; 

//dlg.m_ACOG_N = (m_j5Set- >m_ACOG_SYNPTOMS = = "0"); 
/ / BOOL m_ACOG_Y ; 

//dlg.m_ACOG__Y = {m_pSet->m__ACOG__SYNPTOMS = = "1"); 
//BOOL m_7U^TIBIOTICS == 

//dlg.m_7\NTIBI0TICS = (mjpSet- >m_ANTIBIOTICS = = "1"); 
//BOOL m_AntiHyper; 

//dlg.m_AntiHyper = (m_j5Set->m_ANTIHYPERTENSIVES = = "1"); 
//BOOL m_CervCerclage; 

//dlg.m_CervCerclage = (m_j)Set->m_CERVICAL_CERCLAGE = = "1"); 
//BOOL m_CervFirm; 

//dlg.m_CervFirm = (m_j3Set->m_CERVICAL_CONSISTANCY_FIRM = = "1"); 
/ / BOOL m_Ce rvMod ; 

//dlg.m_CervMod = (m_j)Set->m_CERVICAL_CONSISTANCY_MOD = = "1"); 
//BOOL m_CervSof t ; 

//dlg.m_CervSof t = (m_j)Set- >m_CERVICAL_CONSISTANCY_SOFT = = "1"); 
//BOOL m^Corticosteroids; 

//dlg.m_Corticosteroids = (m_pSet->m_CORTICOSTERIODS= = "1"); 
//BOOL m_Dilitation 1_2 ; 

//dlg.m_Dilitation = (m__pSet->m_DILATION_l_2 = = "1"); 
//BOOL m_Dilitation2 ; 

//dlg.m_Dilitation2 = (m_j)Set->m_DILATION_2 = = "1"); 
//BOOL m_Dilitation2_3 ; 

//dlg.m_Dilitation2_3 = (m_j>Set->m_DILATION_2_3 = = "1"); 
//BOOL m_Dilitation3 ; 

//dlg.m_Dilitation3 = {m_pSet->m_DILATI0N_3 = = "1"); 
//BOOL m_DilitationGt3 ; 

//dlg.m_DilitatioiiGt3 = (m_j>Set->m_DILATION_GT3 = = "1"); 
//BOOL m_Dilitationl ; 

//dlg.m_Dilitationl = (m_pSet->m_DILATION_l = = "1"); 
//BOOL m_DilitationLtl ; 

//dlg.m_DilitationLtl = (m_pSet- >m_DILATION_LTl = = "1"); 
//BOOL m_DilitationUkn; 

//dlg.m_DilitationUkn = (m_j)Set- >m_DILATION_UNKNOWN = = "1"); 
//est ring m, _EGAat Sample ; 

dig .m,_EGAatSample = m_pSet->m-EGA-AT- SAMPLING; 
//est ring m,_EGAbyLMP; 

dlg.m,_EGAbyLMP = m, _pSet - >m_EGA_BY_LMP ; 
//CString m , _EGAby SONO ; 

dlg.m,_EGAbySONO = m, _pSet- >m_EGA_BY_SONO; 
//BOOL m_EthnicOriginAsian; 

dlg.m,_EthnicOriginAsian = m, _pSet->m_ETHNIC_ORIGIN_ASIAN = =; "1") 
//BOOL m_EthnicOriginBlack; 

dlg.m,_EthnicOriginBlack = m,_pSet->m_ETHNIC__ORIGIN_BLACK = =; "1") 
//BOOL m_EthnicOriginHispanic; 
dlg.m,_EthnicOriginHispanic = m, _pSet->m_ETHNI C_ORIGIN__HIS PANIC = =; "1"); 
//BOOL m_EthnicNativeAmerican; 

dig . m, _EthnicOriginNativeAmerican = m, _pSet - >m_ETHNIC_ORIGIN_NATIVEAMERICAN 
= =; "1") ; 
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//BOOL m_EthnicNativeOther ; 

dlg.m,_EthnicOriginNativeOther = m, _pSet->m_ETHNIC_ORIGIN_OTHER= =; "1"); 
//BOOL m_EthnicNat iveWhite ; 

dlg.m,_EthnicOriginNativeWhite = m, _pSet->m__ETHNIC_ORIGIN_WHITE= =; "1") ; 
//BOOL m_FFN_Neg; 

dig . m , _FFN_Neg = m , _pSet - >m_FFN_RESULT= = ; " 0 " ) ; 
/ /BOOL m_FFN_Pos ; 

dlg.m,_FFN_Pos = m,_pSet->m_FFN_RESULT= =; "1"); 
//BOOL m_GestationDiabetes ; 

dlg.m,_GestationDiabetes = m, _jpSet->m_GESTATIONAL_DIABETES = =; "1"); 
//BOOL m_HypertensiveDisorders ; 

dlg.m,_HypertensiveDisorders = m, _pSet->m_HYPERTENSIVE_DISORDERS = =; "1"); 
//BOOL m_Insulin; 

dlg.m,_^Insulin = m,_pSet->m_INSULIN = =; "1"); 
//CstrTng m_LadID; 

dlg.m,_LadID = m, _jpSet->m_LAB_ID = =; "1") ; 
//BOOL m_MedicationNone ; 

dlg.m,_MedicationNone = m, j)Set->m_MEDICATIONS_NONE = =; "1") ; 
/ /BOOL m_Medi cat ionUnknown ; 

dlg.m,_MedicationUnknovm = m,_pSet->m_MEDICATIONS_UNKNOWN = =; "1"); 
//BOOL m_MultipleGestationQuads ; 

dlg.m,_ MultipleGestationQuads = in,_pSet->m_ MULTIPLE_GESTATION_QUADS = =; 
"1") ; 

//BOOL m_MultipleGestationTriplets ; 

dlg.m,_ MultipleGestationTriplets = m,^Set->m_ MULTIPLE_GESTATION_TRIPLETS 
= =; "1") ; 

//BOOL m_MultipleGestationTwins ; 

dlg.m,_ MultipleGestationTwins = m,_pSet->m_ MULTIPLE_GESTATION_TWINS = =; 

"1") ; 

//BOOL m_MaritalStatusDivorced; 

dlg.Tn,_ MaritalStatusDivorced = m,_pSet->m__ MARITIAL_STATUS_DIVORCED = =; 
"1") ; 

//BOOL m_MaritalStatusLWP; 

dlg.m,_ MaritalStatusLWP = Tn,_pSet->m_ MARITIAL_STATUS_LWP = =; "1") ; 
//BOOL m_MaritalStatusMarried; 

dlg.m,_ MaritalStatusMarried = m,_pSet->m_ MARITIAL__STATUS_MARRIED = =; 
"1") ; 

//BOOL m__MaritalStatusOther; 

dlg.m,_ MaritalStatusOther = m, j>Set->m_ MARITIAL_STATUS_OTHER = =; "1") ; 
//BOOL m_MaritalStatusSingle ; 

dlg.m,_ MaritalStatusSingle = m, _pSet->m_ MAR ITIAL_STATUS_S INGLE = =; "1"); 
//BOOL m__MaritalStatusWidowed; 

dlg.m,_ MaritalStatusWidowed = m,_pSet->m_ MARITIAL_STATUS_WIDOWED = =; 

"1"); 

//BOOL m_MultipleGestation; 

dlg.m,_ MultipleGestation = m, _pSet- >m_ MULTIPLE_GESTATION= =; "1"); 
//BOOL m_PatientCompl ; 

PatientCompl = m,_pSet->m_ PATIENT_COMPLAINT_l= 



dlg.m,_ 

//BOOL m_PatientComp2 ; 

dlg.m,__ PatientComp2 = m, _pSet- >m_ PATIENT_COMPLAINT_2 = 
//BOOL m_PatientComp3 ; 

dlg.m,_ PatientComp3 = m, _pSet->m_ PATIENT_COMPLAINT_3= 
//BOOL m_PatientComp4 ; 

dlg.m,_ PatientComp4 = m,_pSet->m_ PATIENT_C0MPLAINT_4 = 
//BOOL m_PatientComp5 ; 

dlg.m,_ PatientCompB = m, _pSet->m_ PATIENT_COMPLAINT_5= 
//BOOL m_PatientComp6 ; 

dlg.m,_ PatientCotnp6 = m, _pSet->m_ PATIENT_COMPLAINT_6 = 
//BOOL m_PatientComp6 ; 

dlg.m,__ PatientComp6 = m, j)Set->m_ PATIENT_COMPLAINT_6 = 
//BOOL m_Tocolytics ; 



" 1 " ) 
" 1 " ) 
" 1 " ) 
"1") 
" 1 " ) 
"1") 
" 1 " ) 
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dlg.m,_Tocolytics = (m-pSet->m_TOYOLYTICS 
/ /BOOL m_UtCervAbnormal , 

dlg.m,_UtCerUAbnormal = {m-pSet->m_UTCERV__ABNORiyiALITY = = . "1") ; 
//BOOL m_VaginalBleeding; 

dlg.m_VaginalBleeding - (m_pSet->m - VAGINAL_BLEEDING "1"); 
//BOOL m_VaginalBleedingGross ; 

dig .m._VaginalBleedingGross = (rn_pSet->m-VAGINAL_BLEEDING_GROSS 
//BOOL m_VaginalBleedingMed; 

dig . m_VaginalBleedingMed = (m_pSet - >m_VAGINAL_BLEEDING_MEDIUM 
//BOOL m_VaginalBleedingTrace; 

dig . m, _VaginalBleedingTrace = (m_pSet- >m_VAGINAL_BLEEDING_TRACE 
//BOOL m__2__COMP_l ; 

dig . m_2_COMP_l = (m_jpSet->ni_2_COMP_l = = "1") ; 
/ /BOOL m_2_COMP_2 ; 

//dlg.m_2_COMP_2 = (m__pSet- >m_2_COMP_2 = = "1") ; 
/ /BOOL m_2_COMP_3 ; 

//dlg.m__2_COMP_3 = (m_j>Set- >m_2_COMP_3 = = "1") ; 
//CString m_ABORTIONS ; 

dlg.m_ABORTIONS = m_j>Set->m_ABORTIONS ; 
//CString m_GRAVITY; 

dig ..m_GRAVITY = m_j>Set- >m_GRAVITY; 

//CString m_PARITY; 
y dlg.m_PARITY = m_PSet- >m_PARITY; 

liJ //BOOL m_PatCompl_l_3 ; 

r«l dlg.m_PatCompl_l_3 = (m_pSet- >m_PATIENT_C0MPLAINT_l_l_3 = = "1"); 

:;y //BOOL m_PatCompl_10_12, 

i^M dlg.m_PatCompl_10_12 = (m_jDSet- >m_PATIENT_COMPLAINT_l_10_12 = = "1"); 

n //BOOL m_PatCompl_4_6 ; 

p dlg.m_PatCompl_4_6 = {m_jpSet- >m_PATIENT_COMPLAINT_l_4_6 = = "1"); 

Ij^ //BOOL m_PatCompl_7_9 ; 

r7 dlg.m_PatCompl__7_9 = (m_j)Set- >m_PATIENT_COMPLAINT_l__7_9 = = "1") ; 

//BOOL m_PatCompl_GT12; 
M dlg.m__PatCompl__GT12 = (m_j>Set- >m_PATIENT_C0MPLAINT_l_GT12 = = "1"); 

/ /BOOL m_Pat Compl_LTl ; 

ily dlg.m_PatCompl_LTl = (m_j)Set->m_PATIENT_COMPLAINT_l_LTl = = "1"); 

if (dlg.DoModalO = = IDOK) { 

//dlg.m_DATE_OF_DATA_ENTRY = m_j)Set->m_DATE_OF_DATA_ENTRY; 
//dlg.m_PATIENT_AGE = in_j)Set->m_PATIENT_AGE; 
//CString m_DATE_OF__BIRTH; 

m pSet->m__DATE_OF_BIRTH = dig .m_DATE_0F_BIRTH; 
/7cString m_NAME_F; 
m pSet->m_NAME_F = dig . m_NAME_F ; 
/TcString m_NAME_L; 
m pSet->m_NAME__L = dig . m_NAME_L ; 
/TcString m_NAME_MI ; 

m_j)Set->m_NAME_MI = dig . m_NAME_MI ; 
/ / BOOL m_l_COiyiP / 

m pSet->m_l-COMP = (dig .m_l_COMP? "1" : " 0 " ) 
/TbOOL m_2_COMP ; 

m pSet - >m_2_C0MP = ( dig . m_2_C0MP? " 1 " : " 0 " ) 
/TbOOL m_3_COMP ; 

m pSet->m_3_COMP = (dig .m_3_COMP? "1" : "0" ) 
/TbOOL m_4_COMP; 

m pSe t - >m_4_C0MP = ( dig . m_4_C0MP? " 1 " : " 0 " ) 
/TbOOL M_5_C0MP; 

m pSet - >m_5_COMP = (dig . m_5_C0MP? " 1 " : 0 " ) 
/TbOOL m_6_comp ; 

m pSet - >m_6_COMP = (dig . m_6_COMP? " 1 " : " 0 " ) 
/TbOOL m_ACOG__N/ 
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m_j>Set - >Tn_ACOG_SYNPTOMS = (dig . m_ACOG-N? " 0 " : " " ) ; 
/ /BOOL m_ACOG_Y ; 

m_j>Set->m_ACOG_SYNPTOMS = 
( dig . m_ACOG_Y? " 1 " : m_pSe t - >m_ACOG_SYNPTOMS ) ; 

m_Antibiotics ; 
>m_ARTIBIOTICS = (dig . m-Antibiotics? "1" : " 0 " ) ; 
m_7Vnt iHyper ; 

>in_ANTIHYPERTENSIVES = (dig . m_AntiHyper? " 1 " : " 0 " ) ; 

m CervCerclage ; 
>m_CIRVICAL_CERCLAGE = (dig . tn_CervCerclage? " 1 " : " 0 " ) ; 
m CervFirm; 

>m_CERVICAL_CONSISTANCY_FIRM = (dig . m_CervFirm? " 1 " : " 0 " ) ; 
m_CervMod; 

>m_CERVICAL_CONSISTANCY_MOD = (dig , Tn_CervMod? " 1 " : " 0 " ) ; 
m_CervSof t ; 

>m_CERVICAL_CONSISTANCY_SOFT = (dig . m_CervSof t ? " 1 " : " 0 " ) ; 

m_Corticosteroids ; 
>m_CORTICOSTEROIDS = (dig . m__Corticosteroids? " 1 " : " 0 " ) ; 

m_Dilitationl_2 ; 
>m_DILITATION_l_2 = (dig .m_Dilitationl_2? "1" : "0" ) ; 

m_Dilitation2 ; 
>m_DILITATION_2 = (dlg.m_Dilitation2? "1" : "0 " ) ; 

in__Dilitation2-3 ; 
>m_DILITATION_2_3 = (dig .m_Dilitation2_3? "1" : "0") ; 

m_Dilitation3 ; 
>Tn_DILITATI0N_3 = (dig .m_Dilitation3? " 1 " : " 0 " ) ; 

m_DilitationGt3 ; 
>m_DILITATI0N_GT3 = (dig . m__DilitationGt3? " 1" : " 0 " ) ; 

m__Dilitationl ; 
>m_DILITATION_l = (dig .m_Dilitationl? "1" : "0") ; 

m_DilitationLtl ; 
>m_DILITATION_LTl = (dig . m__DilitationLtl? " 1 " : " 0 " ) ; 

m_Di 1 i t a t i onUkn ; 
>m_DILITATION_UNKNOWN = (dig .tn^DilitationUkn? " 1 " : "0 " ) ; 
//Cstring m_EGAat Sample; 
m pSet- >m_EGA_AT_SAMPLING = dig. m_EGAatSample ; 
/Test ring m_EGAbyLMP; 

m pSet->m_EGA_BY_LMP = dig . m_EGAbyLMP ; 
/Test ring m_EGAbySONO; 

m pSet->m_EGA_BY_SONO = dig . m_EGAbySONO ; 

/TboOL m_EthnicOriginAsian; 

m_j)Set->m_EYHNIC_ORIGIN_ASIAN = 
(dlg.m_EthnicOriginAsian?"l" : "0") ; 

/ /BOOL m_EthnicOriginBlack ; 

m_j)Set->m_ETHNIC_ORIGIN_BLACK = 
(dlg.m_EthnicOriginBlack?"l" : "0") ; 

//BOOL m_EthnicOriginHispanic ; 

m_j)Set->m__ETHNIC_ORIGIN_HISPANIC = 
(dlg.m_EthnicOriginHispanic?"l" : "0") ; 

/ /BOOL m_E thni cOr iginNat iveAmerican ; 

m_jpSet- >m_ETHNIC_ORIGIN_NATXVE_AMERICAN = 
(dlg.m_EthnicOriginNativeAmerican?"l" : "0") 

//BOOL m_EthnicOriginOther ; 

m_j5Set->m_ETHNIC_ORIGIN_OTHER = 
(dlg.m_EthnicOriginOther?"l" : "0") ; 

//BOOL m_EthnicOriginWhi te ; 

m_pSet->m_ETHNIC_ORIGIN_WHITE = 
(dlg.m_EthnicOriginWhite?"l" : "0") 

//BOOL m_FFN_Neg; 

m_jpSet - >mFFN_RESULT = ( dig . m_FFN_Neg? " 0 »• : " " ) ; 
//BOOL m_FFN_Pos; 



//BOOL 
m pSet- 

/Tbool 

m_PSet- 
//BOOL 
m pSet- 

/Tbool 

m_pSet- 
//BOOL 
m pSet- 

/Tbool 

m_j)Set- 
//BOOL 

i,^ m pSet- 

/Tbool 

•'^ m pSet- 

i!3 /Tbool 

mP m pSet- 

ly /Tbool 

us mpSet- 

/Tbool 

yi m pSet- 

/Tbool 

mpSet- 

/Tbool 

m pSet- 

/Tbool 

m_pSet- 

/Tbool 



m pSet- 
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m_j5Set->Tn_FFN_RESULT = 
(dlg.m_FFN_Pos?"l" :m_pSet->m_FFN_RESULT) ; 

//BOOL m_GestationalDiabetes ; 

m_pSet->m_GESTATIONAL_DIABETES = 
(dlg.m_GestationalDiabetes?"l" :"0") ; 

//BOOL m_HypertensiveDisorders ; 

m_pSe t - >m_HYPERTENS I VE_DI SORDERS = 
(dig .m_HypertensiveDisorders? "1" : "0") ; 

//BOOL m_Insulin; 

mpSet->m_INSULIN = (dig . m_Insulin? "1":"0") 
//cstring m__LadID; 
m pSet->m_LAB__ID = dlg.m_LadID; 
/TbOOL m_MedicationNone; 

m pSet - >m_MEDICATIONS_NONE = (dig . m_MedicationNone? " 1 " : " 0 " ) ; 
//bOOL m_MedicationUnknown; 
m_j)Set->m_MEDICATIONS_UNKNOWN = 
(dig . m_Medicat ionUnknown? " l " : " 0 " ) ; 

//BOOL m_MultipleGestationQuads ; 

m_pSet->m_MULTIPLE_GESTATION_QUADS = 
(dlg.m_MultipleGestationQuads?"l" : "0") ; 

//BOOL m_Mult ipleGestationTriplets ; 

4* m_pSet->m_MULTIPLE_GESTATION_TRIPLETS = 

!,y (dlg.m_MultipleGestationTriplets?"l" : "0") ; 

[y //BOOL m_MultipleGestationTwins ; 

m_pSet->m_MULTIPLE_GESTATION_TWINS = 
(dlg.m_MultipleGestationTwins?"l" : "0") ; 

//BOOL m_MaritalStatusDivorced; 
ii m_j3Set->m_MARITAL_STATUS_DIVORCED = 

(dlg.m_MaritalStatusDivorced?"l" : "0") ; 
r,: //BOOL m_MaritalStatusLWP; 

!"7 m_jpSet->m_MARITAL_STATUS_LWP - 

5"=^ (dlg.m_MaritalStatusLWP?"l" : "0") ; 

M //BOOL m_iyiaritalStatusMarried; 

m_j5Set->m_MARITAL__STATUS_MARRIED = 
(dlg.m_MaritalStatusMarried?"l" : "0") ; 

/ /BOOL in_Mar i t alStatusOther ; 

m_j>Set->in_MARITAL_STATUS_OTHER - (dig .m_Mar it al Status Other? "1" ; 

"0"); 

//BOOL m^MaritalStatusSingle; 
m_j)Se t - >m__MARITAL_STATUS_S INGLE = 
(dlg.in_MaritalStatusSingle?"l" : "0") ; 

//BOOL m_MaritalStatusWidowed; 
m_pSet->m_MARITAL_STATUS_WIDOWED = 
(dlg.m_MaritalStatusWidowed?"l" : "0") ; 

//BOOL m_MultipleGestation; 
m_j>Set->m_MULTIPLE_GESTATION = (dig 
m_MultipleGestation?"l" : "0") ; 

//BOOL m_PatientCompl ; 

m_jpSet->m_PATIENT_COMPLAINT_l = (dig . m_Pat lent Compl? "1 " : "0") 
//BOOL m_PatientComp2 ; 

tn pSet - >m_PATIENT_COMPLAINT_2 = (dig . m_Pat ientComp2 ? " 1 " : " 0 " ) 
/TbOOL m_PatientComp3 ; 

m pSet - >m_PATIENT_COMPLAINT_3 = (dig . m___Pat ientComp3 ? " 1 " : " 0 " ) 
/TbOOL m_PatientComp4 ; 

m pSet->m_PATIENT_C0MPLAINT_4 = (dig . m_PatientComp4? " 1 " : "0") 
/TbOOL m_PatientComp5 ; 

m pSet->m_PATIENT_C0MPLAINT_5 = (dig . m__Pat lent Comp5? " 1 " : "0") 
/TbOOL m_PatientComp6 ; 

m pSet->m_PATIENT_COMPLAINT_6 = (dig .m_Pat lent Comp6? "1" : "0") 
/TbOOL m_Tocolytics ; 

m_j)Set->m_TOYOLYTICS = (dlg.m_Tocolytics?"l" : "0") ; 



m 



m 
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/ /BOOL m_Ut CervAbnormal ; 

m pSet - >m_UTCERV_ABNORMALITY = ( dig . m_Ut CervAbnormal ? " 1 : " 0 " ) ; 
/TbOOL m_VaginalBleeding; 

m_pSet - >m__VAGINAL_BLEEDING = (dig . m_VaginalBleeding? " 1 " : " 0 " ) ; 

//BOOL m__VaginalBleedingGross ; 

m_j)Set->m_VAGINAL_BLEEDING_GROSS = 
(dlg.m_VaginalBleedingGross?"l" : "0") 

//BOOL m_VaginalBleedingMed/ 

m_pSet->Tn_VAGINAL_BLEEDING_MEDIUM = 
(dlg.m_VaginalBleedingMed?"l" : "0") ; 

//BOOL Tn__VaginalBleedingTrace ; 

m. j)Set->m_VAGINAL_BLEEDING_TRACE = 
(dlg.m_VaginalBleedingTrace?"l" : "0") ; 

/ / BOOL m_2_COMP_l / 

m pSet->m_2 COMP_l = (dig. m_2_COMP_l? "1 " : " 0 " ) ; 
/TbOOL m_2_COMP__2 ; 

m_j3Se t - >m_2 COMP_2 = ( dig . m_2_COMP_2 ? " 1 " : " 0 " ) ; 
//BOOL m_2_COMP_3; 

m pSet->m_2_COMP_3 = (dig. in_2_COMP_3 ? " 1 " : " 0 " ) ; 
jU /Tcstring m_ABORTIONS; 

m pSet->m_ABORTIONS = dig . m_ABORT IONS ; 
'•h /Tcstring m_GRAVITY; 

!,y m_pSet->m_GRAVITY = dig .m_GRAVITY; 

y val = atoi (m_pSet->ni__GRAVITY) ; 

\n if (val ==0) { 

jILf m pSet->m_0_COMP = "1"; 

ut^ } else { 

m_pSet->m_0_COMP = "0"; 

i-3 } 

//CString m_PARITY; 
, ^ M pSet->m_PARITY = dig . m_PARITY; 

* /TbOOL m_PatCompl_l_3 ; 

h"^ m_pSet->m__PATIENT__COMPLAINT_l_l_3 = 

|;3 (dig . m_PatCompl_l__3 ? " 1 " : " 0 " ) ; 

j?y //BOOL m_PatCompl_10_12 ; 

m_jpSet->ni_PATIENT_COMPLAINT_l_10_12 = 
( dig . m_Pat Compl_l 0_12 ? " 1 " : " 0 " ) ; 

/ /BOOL m_PatCompl_4_6 ; 

m_pSet->m_PATIENT_C0MPLAINT_l_4_6 = 
(dlg.m_PatCompl_4_6?"l" : "0") ; 

/ /BOOL in_PatCompl_7_9 ; 

Tn_pSet->m_PATIENT_COMPLAINT_l_7_9 = 
(dlg.m_PatCompl_7_9?"l" : "0") ; 

//BOOL m PatCompl_GT12 ; 

m_pSet->m_PATIENT_COMPLAINT_l_GT12 = 
{dlg.Tn_PatCompl_GT12?"l" : "0") ; 

//BOOL m_PatCompl_LTl ; 

m __pSet - >m_PATIENT_COMPLAINT_l_LTl = 
(dig . m_Pat Compl_LTl ? " 1 " : " 0 " ) ; 

// generate the net fields 
tn__pSet'->RunNets (m_pSet->CurRecord) ; 

// write the record to the file 
m_pSet - >put_rec (m_j)Set - >Rec ) ; 

} 

} 

int CPTDinpView: :str2int ( CString& str ) 
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if (str = = "0") return 2 

if (str = = "1") return 1 

if (str = = "2") return 0 
return - 1 ; 



char* CPTDinpView: : int2str ( int val ) 

if(val = = 0) return "2"; 

if (val = = 1) return "1"; 

if (val = = 2) return "0"; 
return " " ; 



int CPTDinpView: :yn2 int ( CString& str ) 

if (str = = "0") return 1; 
if (str = = "1") return 0; 
return - 1 ; 



char* CPTDinpView: : int 2yn ( int val ) 

if (val = = 0) return "1"; 
if (val = = 1) return "0"; 
return " " : 



void CPTDinpView: :OnDataEdit ( ) 

CPTDinpDoc*pDoc = Get Document ( ) ; 
FILE *fp; 

f p = f open (pDoc - >PathName , " rb " ) ; 
if(fp!=NULL) { 

f close (fp) ; 
} else { 

CFileDialog Dig (TRUE, "fdb", NULL, OFN_OVERWR I TE PROMPT 

"FDB iles {*.fbd) ??*) ; 
Dlg.m_ofn. IpstrTitle = "Open Fixed length DataBase file 
if( Dlg.DoModal 0 == IDOK ) { 

strcpy (pDoc->PathName, Dig. GetPathName {)); 
fp = fopen (pDoc->PathName, "rb" ) ; 
if(fp= =NULL) { 

AfxMessageBox ( "Unable to open Database File 
return ; 

} 

pDoc- >CurRecord = 0; 
fseek(fp, OL,SEEK_ElsrD) ; 

pDoc->NumRecords = ftell(fp) / (REC_LENGTH+2L) ; 
f close (fp) ; 



Edit ( ) ; 

} 

void CPTDinpView: :OnDatciNew( ) 
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FILE *fp; 

CPTDinpDoc* pDoc = GetDocument ( ) ; 

create a new record 

fp = f open (pDoc-> Pat hName, "ab" ) ; 
if(fp!=NULL) { 

f write (pDoc->Rec, sizeof (char) , (REC_LENGTH + 2L) , fp) 
f close (fp) ; 

pDoc- >InitializeRec ( ) ; 
pDoc- >NumRecords += 1; 

pDoC" >CurRecord = pDoc- >NumRecords - 1; 
pDoc- >put_rec (pDoc- >Rec) ; 
// edit the new record 

pDoc->get_rec (pDoc->Rec) ; 
Edit { ) ; 

} 



// PTDIVW.h : interface of the CPTDinpView class 

P /////////////////////////////////////////////////////////////////////////// 

y /////////////////////////////////////////////////////////////////////////// 



class CPTDinpView : public CView 



i,P protected: // create from serialization only 

:t CPTDinpView ( ) ; 

DECLARE^DYNCRF . ATE (CPTDinpView) 

//Attributes 
public: 

CPTDinpDoc* GetDocument ( ) ; 

BOOL. ShowPrt; 

CPTDinpDoc* m_j5Set; 
void Edit ( void ) ; 

// Operations 
public : 

// conversions for dialogs 
int str2int( CString& str ); 
char* int2str( int val ); 
int yn2int ( CString&i str ) ; 
char* int2yn( int val ) ; 

// Implementation 
public : 

virtual -CPTDinpView ( ) ; 

virtual void OnDraw(CDC* PDC) ; // overridden to draw this view 
#ifdef_DEBUG 

viriual void AssertValid( ) const; 
virtual void Dump (CDumpContextS: dc) const; 

ttendif 
protected : 

// Printing support 

virtual BOOL OnPreparePrinting (CPrintlnf o* pinf o) ; 
virtual void OnBeginPrinting (CDC* pDC, CPrintlnf o* pinfo) ; 
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virtual void OnEndPrinting (CDC* pDC, CPrintlnfo* pinfo) ; 

// Generated message map functions 
protected: 

//{ {AFX_MSG (CPTDinpView) 

afx_msg void OnDataEdit ( ) ; 

afx msg void OnDataNew ( ) ; 

//}yAFX_MSG 

DECLARE MESSAGE MAP ( ) 
}; " " 

#ifndef_DEBUG // debug version in PTDivw.cpp 
inline CPTDinpDoc* CPTDinpView: : GetDocument ( ) 
{ return (CPTDinpDoc* ) m_pDocument ; } 

#endif 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 



// stdafx.cpp : source file that includes just the standard includes 

// stdafx.pch will be the pre-compiled header 

// stdafx.obj will contain the pre-compiled type information 

#include "stdafx.h" 



// stdafx.h : include file for standard system include files, 

// or project specific include files that are used frequently, but 

// are changed infrequently 

#include <afxwin.h> // MFC core and standard components 

#include <afxext.h> // MFC extensions (including VB) 

#include <afxdb.h> // MFC database classes 



// 

// ENDOINP.RC2 - resources App Studio does not edit directly 
// 

#ifdef APSTUDIO_INVOKED 

# error this file is not editable by App Studio 
#endif //APSTUDIO_INVOKED 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// Version stamp for this .EXE 

#include "ver.h" 

VS_VERSION_INFO VERSIONINFO 
FILEVERSION 1,0,0,1 
PRODUCTVERSION 1,0,0,1 

FILEFLAGSMASK VS_FFI_FILEFLAGSMASK 

ttifdef _DEBUG 

FILEETAGS 

VS_FF_DEBUG | VS_FF_PRIVATEBUILD | VS_FF_PRERELEASE 
#else 

FILEFLAGS 0 // final version 

#endif 
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FI LEOS VOS_DOS_WINDOWS 1 6 

FILETYPE VFT_APP 
FILESUBTYPE 0 // not used 

BEGIN 

BLOCK "StringFilelnfo" 

BEGIN 

BLOCK "040904E4" // Lang=US English, Char Set= Windows Multilingual 
BEGIN 

VALUE " CompanyName " , " \ 0 " 

VALUE "FileDescription" , "ENDOINP MFC Application\0 " 

VALUE "FileVersion" , "1.0. 001\0" , 

VALUE "InternalName" , "ENDOINP\0" 

VALUE "LegalCopyright" , "\0" 

VALUE " LegalTrademarks " , "\0" 

VALUE "OriginalFilename" , "ENDOINP . EXE\0" 

VALUE "ProductName" , "ENDOINP\0" 

VALUE "ProductVersion»», 111 . 0 . 00l\01, 

END 

END 

BLOCK "VarFilelnfo" 
BEGIN 

VALUE "Translation", 0x409, 1252 

// English language (0x409) and the Windows ANSI codepage 

(1252) 

END 

END 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// Add additional manually edited resources here... 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 



//{{NO DEPENDENCIES}} 

App Studio generated include file. 

//Used by PTDINP.RC 



#define APS_3 DECONTROLS 1 

#define YDD_TBOUTBOX 100 

ttdefine IDD_ENDOIN_FORM 101 

#define IDD_ENDO_PG01 102 

#define IDD_ENDO_PG02 103 

#define IDD_ENDO_PG03 104 

#define IDD_ENDO_PG04 105 

#define IDD_END0_PG05 106 

#define IDD_END0_PG06 107 

# define IDD_ENDO_PG07 108 

#define IDD_ENDO_PGOS 109 

#define IDD_ENDO_PG0 9 110 

#define IDD_ENDO_PG10 111 

#define IDD_END0_PG11 112 

ttdefine IDD_END0_PG12 113 

#define IDD__ENDO_PG13 114 

ftdefine IDD_END0_PG14 115 

ttdefine IDD_ENDO_SP04A 116 

#define IDD_ENDO__SP04B 117 

ttdefine IDD_ENDO_SP07A 118 

ttdefine IDD_ENDO_SP08A 119 

ttdefine IDD ENDO SP08B 120 
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#define IDR_MAINFRAME 12 8 

#define IDR_ENDOINTYPE 12 9 
ttdefine IDP_FAILED_OPEN_DATABASE 13 0 

#define IDD_ENDO_S908C 131 

#define IDD_ENDO_PG15 132 

#define IDD_ENDO_SP10A 133 

#define IDD_ENDO_SP0 8D 134 

#define IDD_ENDO_SP0 9A 135 

#define IDD_ENDO_SP0 8E 136 

#define IDD_ENDO_PGO 137 

#define IDD_ENDO__PG77 13 8 

#define IDD_D_PT5_INP 139 

#define IDD_D_GOT5 140 

#define IDB_BITMAP1 141 

#define IDC_E_DATE 1000 

ttdefine IDC_E_ADEZA_ID 1001 

ttdefine IDC_E_INST_ID 1002 

ttdefine IDC_E_AGE_MENS2 1002 

Ix^ #define IDC_E_ADEZA__ID2 1002 

#define IDC_E_TOTAL_POINTS 1002 

O ttdefine IDC_E_PAT_BIRTHDATE 1003 

..p #define IDC_E_PAT_ZIPCODE 1004 

ly #define IDC_E_PAT_OCCUPATION 1005 

i'a #define IDC_C_PAT_WHITE 1006 

#define IDC_C_PAT_BLACK 1007 

'''f-^ #define IDC_C_PAT_HISPANIC 1008 

i!0 #define IDC_C_PAT_ASIAN 1009 

ttdefine IDC_C_PAT_OTHER 1010 

#define IDC_C_PAT_HIGHSCHOOL 1011 

j'^ #define IDC_C_PAT_COLLEGE 1012 

#define IDC_C_PAT_GRADUATE 1013 

1"^ #define IDC_C_PAT_POSTGRAD 1014 

#define IDC_C_MARRIED 1015 

["=3 #define IDC_B_GOBACK 1016 

;;r: #define IDC C SP WHITE 1017 

#define IDC C_SP_BLACK 1018 

#define IDC C_SP_HISPANIC 1019 

ttdefine IDC_C_SP_ASIAN 1020 

#define IDC__C__SP_OTHER 1021 

#define IDC_C_SP_HIGHSCHOOL 1022 

#define IDC_C_SP_COLLEGE 1023 

#define IDC_C_SP_GRADUATE 1024 

#define IDC_C_SP__POSTGRAD 102 5 

#define IDC__E_SP_OCCUPATION 1026 

#define IDC_E_PAT_AGE 1027 

#define IDC_C_PAT_FLAG 1028 

#define IDC__R__DIAB_MELL1 1029 

#define IDC__R_DIAB_MEI.L2 1030 

#define IDC_R_DIM_MELL3 1031 

# define IDC_B_PREV_PG 1032 

#define IDC_R_OTHER_STDl 1033 

#define IDC_R_OTHER_STD2 ■ 1034 

#define IDC_R_PI_DIAB1 103 5 

#define IDC_R_PI_DIAB2 1036 

#define IDC_R_PI_DIAB3 1037 

#define IDC_R_OTHER_STD3 103 8 

#define IDC_R_VAG__IRF1 1039 

#define IDC_R_VAG_INF2 1040 
#def ine IDC_R_VAG_INF3 . 1041 

#define IDC_R_GEN_WARTS1 1042 

#define IDC R-GEN-W7^TS2 1043 
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ttdefine IDC_R_GEN_WARTS3 1044 

#define IDC_R_UT___YUB__ABNORI 1045 

#define IDC_R_UT_TUB_ABN0R2 1046 

#define IDC_R_UT_TXJB_ABNOR3 1047 

#define IDC_R_DYS_UT_BLEED1 . 1048 

#define IDC_R_DYS_UT_BLEED2 1049 

#define IDC_R_HYPERTEN1 1050 

#define IDC_R_DYS_UT_BLEED3 ■ 1050 

# define IDC_R_HYPERTEN2 1051 

#define IDC_R_SMOKINGl 1051 

#define IDC_R_HYPERTEN3 1052 

#define IDC_R_SMOKING2 1052 

#define IDC_R__PI_HYPERTEN1 1053 

#define IDC_R_S14 0_KING3 1053 

#define IDC_R_PI_HYPERTEN2 1054 

#define IDC_R_DRUG_ABUSE1 1054 

#define IDC_R_PI_HYPERTEN3 1055 

#define IDC_R__DRUG_ABUSE2 1055 

#define IDC_R_AUTO_IMMUNEl 1056 

1;^ #define IDC_R_DRUG_ABUSE3 1056 

□ #define IDC_R_AUT0_IMMUNE2 1057 

#define IDC_R_PRES_MED1 1057 

iaj #define IDC_R_AUT0_INMUNE3 1058 

r,1 #define IDC_R_PRES_MED2 1058 

#define IDC_R_PRES_MED3 1059 

^'0 #define IDC_R_DYS_UT_BLEED4 105 9 

ilH #define IDC_R_UNDETERMINED2 1060 

=i #define IDC_R_OV_CYSTl 1061 

#define IDC_R_0RG_TRANS1 1062 

;"7 #define IDC_R__OV_EYST2 1062 

#define IDC_R_0RG_TRANS2 1063 

H #define IDC_R_OV_CYST3 1063 

#define IDC_R_OTHER_CURl 1063 

i'g #define IDC_R_ORG_TRANS3 1064 

:;r? ttdefine IDC_R_POLY_OV_SYNDI 1064 

#define IDC_R_OTHEK_CUR2 1064 

#define IDC_R_PEL_INFL_DIS1 1065 

#define IDC_POLY_OV_SYND2 1065 

ttdefine IDC_R_PEL_INFL_DIS2 1066 

#define IDC_R_POLY_OV_SYND3 1066 

#define IDC_R_PEL__INFL_DIS3 1067 

#define IDC_R_AB_PAP_DYSPL1 1067 

#define IDC_R_HERPEST1 1068 

#define IDC_R_AB_PAP_DYSPL2 1068 

#define IDC_R_HERPES2 1069 

#define IDC_R_AB_PAP_DYSPL3 1069 

#define IDC_R_HERPES3 1070 

#define IDC_R-GYN_CANSER3 1070 

#define IDC_R_GYN_CANSER2 1071 

#define IDC_R_GYN_CANSERI 1072 

#define IDC_R_FIBTOIDS3 1073 

#define IDC_R_FIBROIDS2 1074 

#define IDC_R_FIBROIDSl 1075 

ttdefine IDC_R_OTHER_HX3 1076 

ttdefine IDC_R_OTHER_HX2 1077 

ttdefine IDC_R_OTHER_HXI 1078 

ttdefine IDC_R_PELVIE_PAIN1 1079 

ttdefine IDC_R_ECTOPIC_PREGl 1079 

ttdefine IDC_R_PELVIC_PAIN2 1080 

ttdefine IDC_R_ECTOPIC_PREG2 1080 

ttdefine IDC R ABDOMPAINl 1081 
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#define IDC_R_ECTOPIC_PREG3 1081 

ttdefine IDC_ABD0M_PAIN2 1082 

#define IDC_R_MENS_ABNORMI 1083 

#define IDC_R_MENS_ABNORM2 1084 

ttdefine IDC_R_DYSMEN1 1085 

#define IDC_R_DYSMEN2 1086 

#define IDC_R_DISPAR1 1087 

#define IDC_R_DISPAR2 1088 

#define IDC_R_INFERTILITY1 1089 

#define IDC_R_INFERTILITY2 1090 

#define IDC_R_ADN_MAS_THICK1 10 91 

#define IDC_R_ADN_MAS_THICK2 1092 

#define IDC_R_OVARIAN__CYSTl 1093 

#define IDC_R_0VARIAN_CYST2 1094 

#define IDC_R_UNDETERMINED1 1095 

ttdefine IDC_E_CUR_SYM_OTHER 1096 

ttdefine IDC_R_MENST__REG1 1097 

#define IDC_R_MENST_REG2 1098 

ttdefine IDC_E_LAST_PERIOD 1099 

#define IDC_E_RECENT_PART 1100 

O #define IDC_E_GRAVIDITY 1101 

.,P #define IDC_E_PARITY 1102 

i,y #define IDC_R_HX_INFERT1 1103 

#define IDC_R_HX_INFERT2 1104 

#define IDC_R_OV_STAT_KNOWNl 1105 

!;y #define IDC_R_OV_STAT_KNOWN2 1106 

Cm #define IDC_E__SPONT_ABORT 1107 

n #define IDC_R_MENS_FLOWl 1107 

n #define IDC_E_ELECT_ABORT 1108 

#define IDC_R_MENS_FLOW2 1108 

\^ #define IDC_R_MENS_FLOW3 1109 

1"=^ ttdefine IDC_R_HX_OF_END01 1110 

M #define IDC_R_HX_OF_END= 1111 

#define IDC_R_HX_PEL_SURG1 1112 

#define IDC_R_HX_PEL_SURG2 1113 

^'^ #define IDC_R_HORMON_MEDl 1114 

ttdefine IDC_R_HORMONE_MED2 1115 

ttdefine IDC_E_CUR_SURG_DATE 1116 

ttdefine IDC_E CUR SURG REAS0N2 1117 

ttdefine IDC_C_DIAG_LA_PAR 1118 

ttdefine IDC_CIiASER_OBLIT 1119 

ttdefine IDC_C_SURG_EXCISION 1120 

ttdefine IDC_C_BI_SAL_OOPH 1121 

ttdefine IDC_C_UNIL_OOPH 1122 

ttdefine IDC_C_EXC_OV_CYST 1123 

ttdefine IDC_C_OLULiA 1124 

ttdefine IDC_C_HYSTERECTOMY 112 5 

ttdefine IDC_C_HYSTEROSCOPY 1126 

ttdefine IDC_C_D_AND_C 1127 

ttdefine IDC_C_CUR_SURG_OTHER 1128 

ttdefine IDC__C_NORM_PEL 112 9 

ttdefine IDC_ElsrDO_PRESENT 1130 

ttdefine IDC_C_ADHESIONS_PRES 1131 

ttdefine IDC_C_FIBROIDS_TRES 1132 

ttdefine IDC_C_PELV_INF_DISEASE 1133 

ttdefine IDC_C_GYN_CANCER 1134 

ttdefine IDC_C_OTHER_GYN_DIS 1135 

ttdefine IDC_R_AFS_STG1 1136 

ttdefine IDC_R-AFS__STG2 1137 

ttdefine IDC_R_AFS_STG3 1138 

ttdefine IDC R AFS STG4 1139 
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ttdefine IDC_C_BLUE_BK_LESIONS 1141 

#define IDC_C_RED_LE SIGNS 1142 

ttdefine IDC_C_WHITE_LESIONS 1143 

ttdefine IDC_R_PEL_i\DH_PRESl 1144 

ttdefine IDC_R_PEL_ADH_PRES2 1145 

ttdefine IDC_R_AW_CORF_BIOPSYl 114 6 

ttdefine IDC_R_ENDO_CONF__BIOPSY2 1147 

ttdefine IDC_b-OVERIES_AT 1148 

ttdefine IDC_C_OVERIES_ADH 1149 

ttdefine IDC_C_FALLOP_EST 1150 

ttdefine IDC_C__FALLOP_ADH 1151 

ttdefine IDC_C_UT_LIG_EST 1152 

ttdefine IDC_C_UT_LIG_ADH 1153 

ttdefine IDC__C_CULDESAC_EST 1154 

ttdefine IDC_C_CULDESAC_ADH 1155 

ttdefine IDC_C_BROAD_LIG_EST 1156 

ttdefine IDC_C_BROAD_LIG_ADH 1157 

1^ ttdefine IDC__C_PEL_SYDE_EST 1158 

ttdefine IDC_C_PEL_S IDE_ADH 1159 

Q ttdefine IDC_C_VESIC_EST 1160 

!;3 ttdefine IDC_C_VESIC_7UDH 1161 

.,e ttdefine IDC_C_OTHER_EST 1162 

Uj ttdefine IDC_C_OTHER__ADH 1163 

ttdefine IDC_E_PID_DATE 1164 

1'^ ttdefine IDC_R_HAVE_PID1 1165 

m ttdefine IDC_E_PID_LOC_SPECIFY 1165 

Ip ttdefine IDC_E_ADDL_PID 1165 

I, ttdefine IDC_R_HAVE_PID2 1166 

ttdefine IDC_E_PID_L0C_SPECIFY2 1166 

"r^ ttdefine IDC_C_PID_C_LiAPS 1167 

ttdefine IDC_C_PID_C_IiAPT 1168 

U ttdefine IDC_C_PID_C_DIFF_DIAG 1169 

ttdefine IDC_C_PID_C UNDET 1170 

U ttdefine IDC_E_PID_A_SPECIFy 1171 

ttdefine IDC_R_PID_C0NF_SURG1 1172 

m ttdefine IDC_R_GC_HISTOLOGYl 1172 

ttdefine IDC_R_P15_CONF_SURG2 1173 

ttdefine IDC_R_GC_HISTOLOGY2 1173 

ttdefine IDC_C_PID_M_ORG_XJNKNOWN 1174 

ttdefine IDC_C_PID_ORG_NEISS 1175 

ttdefine IDC_C_PID_M_ORG_CH_TR 1176 

ttdefine IDC_C_PID_M_ORG_GM 1177 

ttdefine IDC_C_PID_M_ORG_OTHER 1178 

ttdefine IDC_C__PID_M_LOC_VAGINA 1179 

ttdefine IDC_C_PID_LOC_CERVIX 1180 

ttdefine IDC_C_PID_LOC_0 VARIES 1181 

ttdefine IDC_C_PID_LOC_FALLOP 1182 

ttdefine IDC_C_PID_LOC_OTHER 1183 

ttdefine IDC_E_PID_ORG_SPECIFY 1184 

ttdefine IDC_R_GC PRIMARY 1185 

Nefine IDC__R__GC_PRIMARY2 1186 

Nefine IDC_R_GC_PRIMARY3 1187 

ttdefine IDC_R_GC_PRIMARY4 1188 

ttdefine IDC_R_GC_GRADEI 1189 

Kefine IDC_R_GC_STAGE2 1190 

Kefine IDC_R_GC_STAGE3 1191 

Nefine IDC_R_GC_STAGE4 1192 

ttdefine IDC_R_GC_STAGE5 1193 

ttdefine IDC_R_GC_GRADE2 1194 

ttdefine IDC_R_GC_GRADE3 1195 

ttdefine IDC R GC STAGEl 1196 
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#define IDC_E_GC_TXJMOR_TYPE 1197 
ttdefine IDC_E_GC_SITES_SPECIFY 1198 
ttdefine IDC_E_GC_ADD_INFO 1199 
ttdefine IDC_E-PKS_PER_DAY 1200 
#define IDC_E_OTHER_STD_SPECIFY 1201 
#define IDC-E - PRES-MED_DRUG1 1202 
#define IDC_E_PRES_MED_DATE1 12 03 

#define IDC_E_PRES_MED_DRUG2 1204 
#define IDC_E_OTHER_HX_SPECIFY 1204 
#define IDC_E_PRES_MED_DATE2 1205 
#define IDC_C_INFERT_PRI 1205 
#define IDC_E_PRIMARY_LEN 1206 
#define IDC_C_INFERT__SEC 1207 
ttdefine IDC_C_HOR_MEDl 12 07 

ttdefine IDC_ESECONDARY_LEN 120 8 

ttdefine IDC_E_HOR_MED_DOSEl 12 08 

ttdefine IDC_E_HOR_MED_DATEl 1209 
hJ. ttdefine IDC_E_PEL_SURG_TYPE1 1209 

ttdefine IDC_E_H0R_MED_PURP1 1210 
^ ttdefine IDC_E_PEL_SURG_DATE1 1210 

i'.^ ttdefine IDC__C_H0R_MED2 - 1211 

:,P ttdefine IDC_E_PEL_SURG_DATE2 1211 

|,y ttdefine IDC_R_OVUL_STATl 1211 

ttdefine IDC_E_HOR_MED_DOSE2 1212 
ttdefine IDC_E_PEL_SURG_TYPE2 1212 
ttdefine IDC_R_OVUL_STAT2 1212 
ttdefine IDC_E_H0R__MED_DATE2 1213 
n ttdefine IDC_E_PEL_SUR_DATE3 1213 

i-g ttdefine IDC_R_OVUL_STAT3 1213 

rt ttdefine IDC_E_H0R_MED_PURP2 1214 

i"^ ttdefine IDC_E_PEL_SURG_TYPE3 1214 

ttdefine IDC_EST_OTHER_SPECIFY 1214 
ttdefine IDC_C_HOR_MED 1215 
r'-l ttdefine IDC_E_PEL_SURG_DATE4 1215 

:;f! ttdefine IDC_E_ADH-OTHER_SPECIFY 1215 

ttdefine IDC_E_HOR__MED_DOSE3 1216 
ttdefine IDC_E_PEL_SURG_TYPE4 1216 
ttdefine IDC_C_MENST_HORM_INDUCED 1216 
ttdefine IDC_E_H0R_MED_DATE3 1217 
ttdefine IDC_E_TYP_CYC_LEN 1217 
ttdefine IDC_E_H0R_MED_PURP3 1218 
ttdefine IDC_E__TYP_PERIOD_LEN 1218 
ttdefine IDC_C_HOR_MED4 1219 
ttdefine IDC_E_FREQUENCY 1219 
ttdefine IDC_E_HOR_MED__DOSE4 122 0 

ttdefine IDC_E_OTH_SURG_PROC_SPECIFY 122 0 
ttdefine IDC_E__HOR_MED_DATE4 1221 
ttdefine IDC_E_OTHER_GYN_SPECIFY 1221 
ttdefine IDC_E_H0R_MED_PURP4 1222 
ttdefine IDC_CONFIRMED_BY_LAPAROSCOPY 1222 
ttdefine IDC_C__CONFIRMED_BY_IiAPAROTOMY 122*3 
ttdefine IDC_CONFIRMED_BY_BIOPSY 1224 
ttdefine IDC_E_LAPAROSCOPY_DATE 1225 
ttdefine IDC_E_LAPAROTOMY_DATE 122 6 
ttdefine IDC_E_BIOPSY_DATE 12 2 7 

ttdefine IDC_E__RECORD_COUNT 123 0 

ttdefine IDC_R_HORMONE_INDUCED 1232 
ttdefine IDC_R_HORMONE_INDUCED2 1233 
ttdefine IDC_EO__WHITE 1247 
ttdefine IDC_EO_BIjACK 124 8 

ttdefine IDC EO ASIAN 124 9 
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#define IDC_EO_HIS PANIC 1250 

ttdefine IDC_EO_NATIVE_AMERICAN 1251 

#define IDC_EO_OTHER 1252 

ttdefine IDC_MS_MARRIED 1253 

ttdefine IDC_MS_S INGLE 1254 

ttdefine IDC_MS_WIDOWED 12 55 

ttdefine IDC_MS_LWP 1256 

ttdefine IDC_MS_OTHER 1257 

ttdefine IDC__ACOG__Y 1258 

ttdefine IDC_ACOG_N 1259 

ttdefine IDC_MS_DIVORCED 12 6 0 

ttdefine IDC_ANTIBIOTICS 1261 

ttdefine IDC__FFN_POS 1262 

ttdefine IDC_CORTICOSTEROIDS 1263 

ttdefine IDC_TOCOLYTICS 1264 

ttdefine IDC_INSULIN 1265 

ttdefine IDC_ANTIHYPER 1266 

ttdefine IDC_FFN_NEG 1267 

j:g ttdefine IDC_MED_NONE 1268 

!;S ttdefine IDC_MED_UKN 1269 

'-•-^ ttdefine IDC_PATENT_C0MP_1 1270 

mP ttdefine IDC_PATIENT_COMP_3 1271 

l.y ttdefine IDC_PC1_LT1 1272 

l-j ttdefine IDC_PC1_1_3 1273 

*define IDC_PC1_4_6 12 74 

ttdefine IDC_PATENT__COMP_2 1275 

i.M ttdefine IDC_VAGINAL_BLEEEING 1276 

n ttdefine IDC_VB_TRAC 1277 

|'3 ttdefine IDC_VB_MED 1278 

\\ ttdefine IDC_VB_GROSS 1279 

i\ ttdefine IDC_PATIENT_COMP_6 1280 

1"=^ ttdefine IDC_PATIENT_COMP_5 1281 

U ttdefine IDC_PATIENT_COMP_4 12 82 

ttdefine IDC_EGA_BY_SONO 12 83 

ttdefine IDC_EGA_BY_IjMP 12 84 

= ttdefine IDC_EGA__AT_SAMP 12 85 

ttdefine IDC_DILITATION_LTl 12 86 

ttdefine IDC_DILITATION_l 1287 

ttdefine IDC__DILITATION_l_2 1288 

ttdefine IDC_DILITATION_2 1289 

ttdefine IDC_DILITATION_2_3 1290 

ttdefine IDC_DILITATION_3 1291 

ttdefine IDC_DILITATION_GT3 12 92 

ttdefine IDC_CERV_FIRM 12 93 

ttdefine IDC_CERV_MOD 12 94 

ttdefine IDC_CERV_SOFT 12 95 

ttdefine IDC_1_C0RP 12 98 

ttdefine IDC_2_COMP 12 99 

ttdefine IDC_3_COMP 1300 

ttdefine IDC_4_COMP 1301 

ttdefine IDC_5_COMP 1302 

ttdefine IDC__6_COMP 1303 

ttdefine IDC_MULT_GEST 1304 

ttdefine IDC_UT_CWRV_ABNORM 13 05 

ttdefine IDC_CERV_CERCIAGE 1306 

ttdefine IDC_GEST_DIABETES 1307 

ttdefine IDC_HYPERTEN_DISORDERS 1308 

ttdefine IDC_MG_TWINS 1309 

ttdefine IDC_MG_TRIPLETS 1310 

ttdefine IDC_MG_QUADS 1311 

ttdefine IDC NAME L 1313 
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#def ine 


IDC NAME F 


1314 


#def ine 


IDC NAME MI 


1315 


#def ine 


IDC DATE OF BIRTH 


1316 


#def ine 


IDC LAB ID 


1317 


# define 


IDC DILATATION UKN 


1318 


#def ine 


IDC GRAVIDITY 


1319 


#def ine 


IDC PARITY 


1320 


#def ine 


IDC ABORTIONS 


1321 


#def ine 


IDC PCI 7 9 


1322 


#def ine 


IDC PCI 10 12 


1323 


#def ine 


IDC PCI GT12 


1324 


#def ine 


IDC 2 CUMP 1 


1325 


#def ine 


IDC 2 COMP 2 


1326 


#def ine 


IDC 2 COMP 3 


1327 


#def ine 


IDC R GOTO SELl 


1329 


#def ine 


IDC R GOTO SEL2 


1330 


#def ine 


IDC E GOTO REC NUM 


1331 


#de£ine 


IDC E GOTO ID NUM 


1332 


#def ine 


IDD DATA NEW 


32771 


#def ine 


ID DATA NEW 


32772 


#def ine 


ID DATA EDIT 


32773 


#define 


ID REC FIRST 


32774 


#def ine 


ID REC NEXT 


32775 


#def ine 


ID REC PREV 


32776 


#def ine 


ID REC LAST 


32777 


#def ine 


ID BLD NET FILE 


32778 


#def ine 


ID EDIT MODE 


32779 


#def ine 


ID CLR SUBFIELDS 


32780 


#def ine 


ID REC GOTO 


32781 



111 

// Next default values for new objects 
// 

#ifdef APSTUDIO_INVOKED 
j.g #ifndef APSTUDIO_READONLY_SYMBOLS 

i'y #define APS_NEXT_RESOURCE__VALUE 142 

#define APS_NEXT_COMMAND_VALUE 32782 
#define APS_NEXT_CONTROL_VALUE 1333 
#define APS_NEXT_SYMED_VALUE 101 
#endif 
#endif 

//Microsoft App Studio generated resource script. 

// 

#include " resource . h" 

#define APSTUDIO_READONLY_SYMBOLS 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// 

// Generated from the TEXTINCLUDE 2 resource. 
// 

#include " af xres . h" 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// 

ttundef APSTUDIO_READONLY_SYMBOLS 
ttifdef APSTUDIO INVOKED 
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/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// 

// TEXTINCLUDE 
// 

1 TEXTINCLUDE DISCARDMLE 
BEGIN 

"resource .h\0" 

END 

2 TEXTINCLUDE DISCARDABLE 
BEGIN 

"#include " ' afxres .h" ' \r\n" 
"\0" 

END 

3 TEXTINCLUDE DISCARDABLE 
BEGIN 

#include " "res\\PTDinp . rc2 " " // non-App Studio edited 
resources\r\n" 
"\r\n" 

"ttinclude afxres . rc." " \011// Standard components \r\n" 
"ttinclude " ' afxprint , rc" " \011// printing/print preview 
resources\r\n" 

"ttinclude " "afxdb . rc" " \011\011// Database resources\r\n" 
"\0" 

END 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
ttendi f / / APSTUDIO_INVOKED 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// 

// Icon 
// 

IDR_MAINFRAME ICON DISCT^DABLE "RES\\PTDINP . ICO" 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// 

// Bitmap 
// 

IDR_MAINFRAME BITMAP MOVEABLE PURE "RES\\TOOLBAR . BMPll 

IDB_BITMAP1 BITMAP DISCARDABLE 

" RES \ \BITMA . Pi . BMP " 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// 

/ / Menu 
// 

IDR_MAINFRAME MENU PRELOAD DISCARDABLE 
BEGIN 

POPUP "ficFile" 
BEGIN 

MENUITEM " &Open. . .\tCtrl+0", ID_FILE_OPEN 
MENUITEM SEPARATOR 

MENUITEM "&Print", ID_FILE_PRINT 



-89- 



24727-801 F 



MENUITEM 
MENUITEM 
MENUITEM 
MENUITEM 
MENUITEM 
MENUITEM 
MENUITEM 
MENUITEM 
MENUITEM 



END 

POPUP 

BEGIN 



" &Record" 



MENUITEM 
MENUITEM 
MENUITEM 
MENUITEM 
MENUITEM 
MENUITEM 
MENUITEM 
MENUITEM 
MENUITEM 
MENUITEM 
MENUITEM 



"Print &Setup" . 
"Print Preview", 
SEPARATOR 
"Filel", 
"File2" , 
"File3", 
"File4" , 
SEPARATOR 
"E&xit", 



%First Record", 
"ScPrev Record", 
%Next Record", 
%Last Record", 
SEPARATOR 
%Go to Record", 
SEPARATOR 
%Edit Record", 
%New Record", 
SEPARATOR 
"Neural &Data", 



END 

POPUP 

BEGIN 



END 

POPUP 

BEGIN 



END 

POPUP 

BEGIN 



%Options " 



MENUITEM %Print Full Form", 
MENUITEM %Clear Subfields", 



%View" 



MENUITEM %Toolbar" . 
MENUITEM %Status Bar", 



ID_FILE_PRINT_SETUP 
ID_FILE_PRINT_PREVIEW 

ID_FILE_MRU_FILE1 , GRAYED 

ID_FILE_MRU_FILE2 , GRAYED 

ID_FILE_MRU_FILE3 , GRAYED 

ID_FILE_MRU_FILE4 , GRAYED 

ID APP EXIT 



ID_REC_FIRST 
ID_REC_PREV 

ID_REC_NEXT 

ID_REC_riAST 

ID_REC_GOTO 

ID_DATA_EDIT 
ID_DATA_NEW 

ID BLD NET FILE 



ID_EDIT_MODE 

ID CLR SUBFIELDS 



I D_VI E W_TOOLB AR 
ID VIEW STATUS BAR 



%Help" 



MENUITEM %About PTDinp 



ID APP ABOUT 



END 



END 



/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 

// 

// Accelerator 

// 

IDR_MAINFRAME ACCELERATORS PRELOAD MOVEABLE PURE 
BEGIN 



"N' 






id file new, 


VIRTKEY, CONTROL 


IIQi 






ID file open, 


VIRTKEY, CONTROL 


"S» 






ID file SAVE, 


VIRTKEY, CONTROL 


II pi 






ID FILE PRINT, 


VIRTKEY, CONTROL 


"Z» 






ID EDIT UNDO, 


VIRTKEY, CONTROL 


"X» 






ID EDIT CUT, 


. VIRTKEY, CONTROL 


"C» 






ID EDIT COPY 


VIRTKEY, CONTROL 


nv» 






ID EDIT PASTE, 


VIRTKEY, CONTROL 


VK 


BACK, 




ID EDIT UNDO, 


VIRTKEY, ALT 


vk" 


"delete , 


id 


EDIT CUT, 


VIRTKEY, SHIFT 


vk" 


'insert. 


id" 


"EDIT COPY, 


VIRTKEY, CONTROL 


vk" 


"insert. 


id" 


"edit paste. 


VIRTKEY, SHIFT 


VI" 


"F6 




ID NEXT PANE, 


VIRTKEY 
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VK F6, 



ID PREV PANE, 



VIRTKEY, SHIFT 



END 



/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 

// 

//Dialog 
// 



I WS SYSMENU 



IDD_ABOUTBOX DIALOG DISCARDABLE 34, 22, 217, 55 
STYLE DS_MODALFRAME I | WS_POPUP | WS__CAPTION _ 
CAPTION 7About PTDinp" 
FONT 8, "MS Sans Serif" 
BEGIN 

IDR_MAINFRAME , IDC_S TAT IC, 11, 17, 18, 2 0 
"Pre Term Delivery Application Version 1. 0", 



ICON 
LTEXT 
IDC STATIC, 



LTEXT 

DEFPUSHBUTTON 



END 



40, 10, 139, 8 

'Copyright \251 1997 " , IDC_STATIC, 40,25,119,8 
'OK", IDOK, 175, 32, 32, 14,WS_GROUP 



IDD_D PTD_INP DIALOG DISCARDABLE 0, 0, 399, 447 

STYLE -DS_RODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | 
WS_SYSMENU 

CAPTION "Pre-Term Delivery Risk Assessment Software: Data Entry Screen" 

FONT 8, "MS Sans Serif" 

BEGIN 

EDITTEXT 

EDITTEXT 
ES_AUTOHSCROLL 

EDITTEXT 
ES_AUTOHSCROLL 

EDITTEXT 

EDITTEXT 



CONTROL 
BS_AUTOCHECKBOX | 

CONTROL 
"Button", BS_AUTOCHECKBOX | 

CONTROL 
BS_AUTOCHECKBOX | 

CONTROL 
"Button" , BS_AUTOCHECKBOX | 

CONTROL 
CAN, "Button" , 
BS_AUTOCHECKBOX | 

CONTROL " 
BS_AUTOCHECKBOX | 

CONTROL 
BS_AUTOCHECKBOX | 

CONTROL 
BS_AUTOCHECKBOX | 



IDC_LAB_ID ,305,8,68,12, ES_AUTOHSCROLL 
IDC_NAME_L, 46, 48, 50, 13, 

IDC_NAME_F, 117, 4 8, 4 0, 13, 

IDC_NAME_MI ,170,48,12,13, ES_AUTOHSCROLL 
IDC_DATE_OF_BIRTH, 28, 66, 59, 12, 
E S_AUTOHS CROLL 

"Caucasian", IDC_EO_WHITE , "Button" 

WS__TABSTOP,242, 48,45, 10 
"African American", IDC_EO_BLACK, 

WS_TABSTOP, 2 92 , 4 8 , 66 , 1 

"Asian", IDC_EO_ASIAN, "Button", 

WS_TABSTOP, 362, 48,2 9,10 
"Hispanic" , IDC_EO__H IS PANIC, 

WS_TABSTOP ,242,59,40,10 

"Native American", IDC_EO_NATIVE_AMER I 



WS_TABSTOP, 292, 59, 65, 10 

"Other ", IDC_EO_OTHER, " Button", 

WS_TABSTOP, 362, 59, 29, 10 

"Married" , IDC_MS_MARRIED, "Button" , 

WS_TABSTOP, 242, 72, 36, 10 

"Single" , IDC_I_MS_SINGLE, "Button" , 

WS TABSTOP, 262, 72, 34, 10 
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CONTROL 

"Divorced/Separated" , IDC_MS_DIVORCED, "Button" , 
BS_AUTOCHECKBOX | WS_TABSTOP , 316,72,77,10 

CONTROL "Widowed " , IDC_MS_WIDOWED, "Button", 

BS_AUTOCHECKBOX | 

WS_TABSTOP, 242 ,83,41, 10 
CONTROL "Living with partner", IDC_MS_LWP, 

"Button" , 

BS_AUTOCHECKBOX | WS_TABSTOP ,287,83,73,10 

CONTROL " Other " , IDC_MS_OTHER , 

"Button" , BS_AUTOCHECKBOX | 

WS_TABSTOP, 562, 83, 2 9, 10 
CONTROL "Yes", IDC_ACOG_Y, "Button", 

BS_AUTOCHECKBOX | WS_TABSTOP, 333,119,24,10 - 

CONTROL "No " , IDC_ACOG_N, "Button" , 

BS_AUTOCHECKBOX | WS_TABSTOP, 364, 119, 21, 10 

CONTROL "Uterine contractions with or without 

pain" , 

IDC_PATIENT_COMP_l , "Button" , 
BS_AUTOCHECKBOX | WS_TABSTOP, 13, 145, 14 3, 10 

CONTROL " <1", IDC_PC1_LT1, "Button", 

BS_AUTOCHECKBOX | WS_TABSTOP, 67,158,20,10 

CONTROL " 1 - 3 " , IDC_PC1_1_3 , "Button" , 

BS_AUTOCHECKBOX | WS_TABSTOP, 99,158,22,10 

CONTROL "4-6", IDC_PC1_4_6 , "Button", 

BS_AUTOCHECKBOX | WS_TABSTOP, 131,158,22,10 

CONTROL 

"7-9" , IDC_PC1_7_9, "Button" ,BS_AUTOCHECKBOX | WS_TABSTOP, 67,170,22 10 

CONTROL "10-12 "Button" , BS_AUTOCHECKBOX | 

WS_TABSTOP, 99, 170, 30, 10 

CONTROL " >12 " , IDC_PC1_GT12 , "Button" , 

BS_AUTOCHECKBOX | WS_TABSTOP, 131, 170, 24, 10 

CONTROL "Vaginal bleeding", 

IDC_VAGINAL_BLEEDING, "Button", 
BS_AUTOCHECKBOX | WS_TABSTOP, 13,181,65,10 

CONTROL " Trace " , IDC_VB_TRACE , " Button " , 

BS_AUTOCHECKBOX | 
WS_TABSTOP, 23 , 194 ,30,10 

CONTROL "Med", 
IDC_VB_MED, "Button",BS_AUTOCHECKBOX | WS_TABSTOP, 58,194,25,10 

CONTROL 

"Gross " , IDC_VB_GROSS , "Button" , BS_AUTOCHECKBOX | WS_TABSTOP 88 , 194 ,30,10 

CONTROL "Patient is not ""feeling 

right " " " , IDC_PATIENT_COMP 6 , 

"Button", BS_AUTOCHECKBOX J WS_TABSTOP, 13, 205, 102, 10 

CONTROL "Bleeding during the second or third 

trimester" , 

IDC_PATIENT_COMP_3 , 
Button", BS_AUTOCHECKBOX | WS_TABSTOP, 161 145,155 10 

CONTROL "Intermittent lower abdominal pain, 

dull, low backpain, pelvic press ure", 

IDC_PATIEN'r_C0MP_2, "Button", BS_AUTOCHECKBOX | WS_TABSTOP, 161,157,233,10 

CONTROL "Change in vaginal discharge - - 

amount, color, or consistency", 

IDC_PATIENT_C0MP_5 , "Button" , 
BS_AUTOCHECKBOX | WS_TABSTOP, 161181,20810 

CONTROL "Menstrual - like cramping (with or 

without diarrhea)", 

IDC_PATIENT_COMP_4 , "Button" , 
BS_AUTOCHECKBOX | WS_TABSTOP, 161 193,171 10 
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EDITTEXT IDC_EGA_BY_SONO, 155 , 224 , 37 , 12 , 

ES_AUTOHSCROLL 

EDITTEXT IDC_EGA_BY_LMP , 

245, 224, 37, 12,ES_AUTOHSCROLL 

EDITTEXT IDC_EG_AT_SAMP , 

350 , 224 ,37,12, ES_AUTOHSCROLL 

CONTROL "Previous pregnancy, no 

complications" , IDC_1_C0MP, 

"Button", BS_AUTOCHECKBOX | WS_TABSTOP , 13 , 260, 134,10 

CONTROL "History of Preterm 

delivery" , IDC_2_COMP, "Button" , 

BS_AUTOCHECKBOX | WS_TABSTOP, 13, 272, 134, 10 

CONTROL " 1 " , 

IDC_2_COMP_l, "Button" ,BS_AUTOCHECKBOX [ WS_TABSTOP, 91, 284, 19, 10 - 

CONTROL " 1 " , IDC_2_COMP_2 , " Button " , 

BS_AUTOCHECKBOX | WS_TABSTOP, 116, 284 19,10 

CONTROL " >2 " , IDC_2_COMP_3 , "Button" , 

BS_AUTOCHECKBOX | WS__TABSTOP, 141,284, 21, 10 - 

CONTROL "History of Preterm 

PROM" , IDC_3_COMP, "Button" , 

BS_AUTOCHECKBOX | WS_TABSTOP, 13, 296, 92, 10 
,p CONTROL "History of incompetent cervix" , 

y IDC_4_COMP , "Button" , 

\j BS_AUTOCHECKBOX | WS_TABSTOP, 13 , 308, 106,10 

'S CONTROL "History of PIH/preeclampsia" , 

IDC_5_COMP , " But ton " , 
P BS_AUTOCHECKBOX | WS_TABSTOP, 13 , 320, 102, 10 

J CONTROL "History of SAB prior to 20 wks", 

'3 IDC_6_C0MP, "Button" , 

'J BS_AUTOCHECKBOX | WS_TABSTOP, 13 , 332 , 109, 10 

EDITTEXT IDE_GRAVIDITY, 277, 246,20, 12, 

'"^^ ES_AUTOHSCROLL 

EDITTEXT IDC_PARITY, 317, 246, 20, 12 

ES_AUTOHSCROLL 

EDITTEXT IDC_ABORTIONS , 357, 246, 20, 12, 

ES_AUTCHSCROLL 

CONTROL "Multiple 
Gestation: " , IDC_MULT_GEST, "Button" , 
BS_AUTOCHECKBOX | WS_TABSTOP, 23, 272, 72, 10 

CONTROL "Twins " , IDC_MG_TWINS , "Button" , 

BS_AUTOCHECKBOX | WS_TABSTOP, 278, 272,30,10 

CONTROL " Triplets " , IDC_MG__TRIPLETS , "Button" , 

BS_AUTOCHECKBOX | WS_TABSTOP, 311, 272, 36, 10 

CONTROL " Quads " , IDC_MG_QUADS , " Button " , 

BS_AUTOCHECKBOX | WS_TABSTOP, 550 , 272, 32, 10 

CONTROL "Uterine or cervical abnormality", 

IDC_UT_CWRV_ABNORM, "Button", BS_AUTOCHECKBOX | WS_TABSTOP, 203, 
284, 110, 10 

CONTROL " Cerclage " , TDC_CERV_CERCLAGE , 

"Button", BS_AUTOCHECKBOX | WS_TABSTOP, 203 , 296, 40, 10 

CONTROL "Gestational 
Diabetes " , IDC_GEST_DIABETES , "Button" , 
BS_AUTOCHECKBOX | WS_TABSTOP, 203, 308, 79, 10 

CONTROL "Hypertensive Disorders", 

IDC_HYPERTEN_DISORDERS, "Button", BS_AUTOCHECKBOX | WS_TABSTOP, 203, 320, 
86, 10 

CONTROL " 1 " , IDC_DILITATION__LTl , "Button" , 

BS_AUTOCHECKBOX | . WS_TABSTOP, 58, 364, 22, 10 

CONTROL " 1 " , IDC_DILITATION_l , "Button" , 

BS_AUTOCHECKBOX | WS^TABSTOP, 81, 364, 24, 10 



:3 
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CONTROL 
BS_AUTOCHECKBOX 

CONTROL 
BS_AUTOCHECKBOX 

CONTROL 
BS_AUTOCHECKBOX 

CONTROL 
BS_AUTOCHECKBOX 

CONTROL 
BS_AUTOCHECKBOX 

CONTROL 
BS_AUTOCHECKBOX 

CONTROL 
BS_AUTOCHECKBOX 

CONTROL 
BS_AUTOCHECKBOX 

CONTROL 
BS_AUTOCHECKBOX 

CONTROL 
BS_AUTOCHECKBOX 

CONTROL 
"Button" , 
BS_AUTOCHECKBOX 

CONTROL 
BS_AUTOCHECKBOX 

CONTROL 
BS_AUTOCHECKBOX 

CONTROL 
"Button" , 
BS_AUTOCHECKBOX 

CONTROL 
BS_AUTOCHECKBOX 

CONTROL 
BS_AUTOCHECKBOX 

CONTROL 
BS_AUTOCHECKBOX 

CONTROL 
BS_AUTOCHECKBOX 

DEFPUSHBUTTON 

PUSHBUTTON 

LTEXT 
249, 365, 68, 8 

LTEXT 

LTEXT 

8 

LTEXT 
29, 83, 8 

LTEXT 
8 



" 1 - 2 " , IDC_DILITATI0N__1_2 , "Button" , 
WS_TABSTOP 101, 364, 24, 10 

"2 " , IDC_DILITATI0N_2 , Button" , 
WS_TABSTOP, 127, 364, 18, 10 

"2 -3 " , IDC_DILITATION_2_3 , "Button" , 
WS_TABSTOP 147, 364, 24,10 

"3", IDC_DILITATI0N_3, "Button", 
WS_TABSTOP, 173, 364, 18, 10 

->3 IDC_DILITATION_GT3, "Button", 

WS_TABSTOP, 193, 364, 22, 10 

"Unk . " , IDC_DILITATION_UKU, "Button" , 
WS TABSTOP, 217, 364, 29, 10 

Firm" , IDC_CERV_FIRM, "Button" , 
WS_TABSTOP, 318, 564, 25, 10 

"Mod" IDC_CERV_MOD, "Button", 
WS_TABSTOP, 344, 364, 25, 10 - 

"Soft", IDC_CERV_SOFT, "Button", 
WS_TABSTOP, 370, 64, 25, 10 

"Antibiotics" , IDC_ANTIBIOTICS, "Button" , 
WS_TABSTOP, 17, 392, 45, 10 

"Corticosteroids" , IDC_CORTICOSTEROIDS, 

WS_TABSTOP, 70, 392, 60, 10 

"Tocolytis " , IDC_T0COLYTICS, "Button" , 
WS_TABSTOP, 13 8, 592, 41, 10 

"Insulin" , IDC_INSULIN, "Button" , 
WS_TABSTOP, 187, 392, 33, 10 

"Antihypertensive ", IDC_ANTIHYPER, 

WS__TAESTOP, 228, 392, 69, 10 

"None " , IDC_MED_NONE , "Button" , 
WS_TABSTOP, 305, 392, 29, 10 

"Unknown", IDC_MED_UKN, "Button", 
WS_TABSTOP, 342, 3 92, 42, 10 

"Positive", IDC_FFN_POS, "Button", 
WS_TABSTOP, 138,411,37, 10 

"Negative" , IDC_FFN_NEG, "Button" , 
WS_TABSTOP, 228 , 411 ,41,10 

"Calculate Risk", IDOK, 270 , 429, 62, 14 
"Cancel". IDCANCEL, 340,429, 53,14 
"Cervical consistancy" , IDC_STATIC, 

"M", IDC_STATIC, 160,51,7,8 
"Lab ID #:11, IDC_STATIC, 267, 10, 34, 

"PATIENT INFORMATION", IDC_STATIC, 159, 

"Name (last) ", IDC STATIC, 7, 51, 36, 



LTEXT 
GROUPBOX 
GROUPBOX 
LTEXT 

44, 8 

LTEXT 

Status : " , IDE_STATIC, 192 , 72 , 47 , 8 
LTEXT 
LTEXT 

INFORMATION", IDC_STATIC, 117, 102, 168, 8 

GROUPBOX "",IDC STATIC, 1, 112, 396, 107 



"First", IDC_STATIC, . 99, 51, 15, 8 
" " , IDC__STATIC, 1,40, 187, 56 
" " , IDC_STATIC, 187 , 40 , 210 , 56 
"Ethnic origin: ", IDC_STATIC, 192, 48, 

"Marital 

"DOB", IDC_STATIC, 7, 69, 16, 8 
"PATIENT HISTORY AND CLINICAL 
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LTEXT "At the time of sampling was the 

patient experiencing signs and sysptoms of possible preterm labor?", 

IDC STATIC, 7, 119, 321, 8 



LTEXT 

IDC_STATIC, 7, 134,109, 8 
GROUPBOX 
LTEXT 

IDC_STATIC, 7, 411,118, 8 

GROUPBOX 

LTEXT 
that apply) " , 

LTEXT 
GROUPBOX 
LTEXT 
trimester sono", 

LTEXT 

8 

LTEXT 

IDC_STATIC,287,225, 55, 8 

GROUPBOX 

LTEXT 
sample collection : " , 

LTEXT 
9,364,48, 8 

GROUPBOX 

GROUPBOX 

CONTROL 
all that apply. " , 

I WS_GROUP, 7, 24 9, 159, 8 
LTEXT 

G : " , IDC_STATIC , 195 ,249,76,8 

GROUPBOX 

GROUPBOX 

GROUPBOX 

LTEXT 

LTEXT 

LTEXT 
284, 61, 8 
END 



"If yes, please mark all that apply. 

", IDC_STATIC, 1, 373, 396, 32 
"Qualitative fFN Elisa Test Results: 

IDC_STATIC, 1, 402,396,24 
"Medications at Time of Test (check all 

IDC_STATIC, 7, 380, 163, 8 
"Number /hr" , IDC_STATIC, 22 , 15 8, 3 6, 8 

" ",IDC_STATIC, 1,216, 396,25 
"Gestational Age: EGA by first 

IDC_STATIC, 7, 22 5, 14 3, 8 

"EGA by LMP", IDC_STATIC, 197, 225, 42, 

"EGA at sampling", 

" " , IDC_STATIC, 1 , 346 ,396,30 
"Cervical Status immediately following 

IDC_STATIC, 7 , 352 , 182 , 8 
"Dilatation (cm)", IDC_STATIC, 

" " , IDC_STATIC, 1, 23 8,187, 111 
" ", IDC_STATIC, 187,238, 210, 111 
"Previous Pregnancy: Please mark 

IDC_STATIC, "Static" , SS_LEFTNOWORDWRAP 

" Current Pregnancy : 

" " , IDC_STATIC, 1, 93, 396, 22 
" " , IDC_STATIC ,1,1,396,22 
" " , IDC_STATIC, 1,20, 396, 23 
"P: ", IDC_STATIC,303,249,8,8 
"A: ", IDC_STATIC,343,24 9, 8, 8 
"If Yes, how many?", IDC_STATIC, 22, 



WS_CAPTION I 



"Record Number", IDC R GOTO SELl, 



IDD_D_GOTO DIALOG DISCARDABLE 0, 0, 163, 95 
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE 
WS_SYSMENU CAPTION "Go To Record ... " 
FONT 8, "MS Sans Serif" 
BEGIN 

CONTROL 
"Button" , 

BS_AUTORADIOBUTTON | WS_GROUP, 10, 16, 62, 10 

CONTROL "ID Number", IDC_R_GOTO_SEL2 , 

"Button" , BS__AUTORADIOBUTTON, 10,40,46, 10 

ED ITTEXT IDC_E_GOTO_REC_NUM , 

90 , 12 , 60 , 12 , ES_AUTOHSCROLL 

EDITTEXT IDC_E_GOTO_ID_RUM, 90, 36, 60, 

12 , ES_AUTOHSCROLL 

DEFPUSHBUTTON " Ok " , IDOK , , 76, 50, 14 

PUSHBUTTON "Cancel", IDCANCEL, 100, 76, 50, 14 

END 
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/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
// 

// String Table 
// 

STRINGTABLE PRELOTyD DISCARDABLE 
BEGIN 

IDR_MAINFRAME "PTDinp Windows 

Application\nPTDin\nPTDin Docuent\n\n\nPTDin. Document \ nPTDin Document" 
END 



STRINGTABLE PRELOAD DISCARDABLE 
BEGIN 

AFX_IDS_APP_TITLE 
AFX_IDS_IDLEMESSAGE 

END 



"PTDinp Windows Application" 
"Ready" 



STRINGTABLE DISCARDABLE 
BEGIN 

ID_INDI CATOR_EXT 
ID_INDI CATOR_CAPS 
ID_INDI CATOR_NUM 
ID_INDICATOR_SCRL 
ID_INDICATOR_OVR 
ID_INDICATOR_REC 

END 



"EXT" 

"CAP" 

"NUM" 

"SCRL" 

"OVR" 

"REC" 



STRINGTABLE DISCARDABLE 
BEGIN 

ID_FILE_NEW 
ID_FILE_OPEN 
ID_FILE_CLOSE 
ID_FILE_SAVE 
ID_F ILE_SAVE_AS 

name " 

ID_FILE_PAGE_SETUP 
ID_FILE_PRINT_SETUP 
options" 

ID_FILE_PRINT 
ID_FILE_PRINT_PREVIEW 

END 



"Create a new document" 

"Open an existing document" 
"Close the active document" 
"Save the active document" 

"Save the active document with a new 

"Change the printing options" 
"Change the printer and printing 

"Print the active document" 
"Display full pages" 



STRINGTABLE DISCARDABLE 
BEGIN 

ID_APP_ABOUT 
version number and copyright" 

ID_APP_EXIT 
documents" 
END 



"Display program information, 
"Quit the application; prompts to save 



STRINGTABLE DISCARDABLE 
BEGIN 

I D_F I LE_MRU_F I LE I 
ID_FILE_MRU_FILE2 
ID__FILE_MRU_FILE3 
ID_FILE_MRU7_FILE4 

END 



"Open this document" 
"Open this document" 
"Open this document" 

"Open this document" 



STRINGTABLE DISCARDABLE 
BEGIN 

ID NEXT PANE 



"Switch to the next window pane" 
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ID_PREV_PANE 
window pane" 
END 



"Switch back to the previous 



STRINGTABLE DISCARDABLE 
BEGIN 

. ID_EDIT_CLEAR 
I D_ED I T_CLE AR_ALL 
ID_EDIT_COPY 

the Clipboard" 

ID_EDIT_CUT 

Clipboard" 

ID_EDIT_FIND 
ID_EDIT__PASTE 
I D_ED I T_RE PEAT 
ID_EDIT_REPLACE 

text " 

ID_EDIT_SELECT_ALL 

ID_EDIT_UNDO 

ID_EDIT_REDO 
action" 
END 

STRINGTABLE DISCARDABLE 
BEGIN 

ID_VIEW_TOOLBAR 
ID_VI EW_STATUS_BAR 

END 



"Erase the selection" 
"Erase everything" 

"Copy the selection and put it on 

"Cut the selection and put it on the 

"Find the specified text" 
"Insert Clipboard contents" 
"Repeat the last action" 
"Replace specific text with different 

"Select the entire document ?1 
"Undo the last action" 
"Redo the previously tindone 



"Show or hide the toolbar" 

"Show or hide the status bar" 



STRINGTABLE DISCARDABLE 
BEGIN 

AFX_IDS_SCSI2E 

AFX_I DS_S CMOVE 

AFX_IDS_SCMINIMIZE 

AFX_IDS_SCMAXIMIZE 

AFX_IDS_SCNEXTWINDOW 

AFX_IDS_SCPREVWINDOW 

window" 

AFX_IDS_SCCLOSE 

save the documents" 

END 

STRINGTABLE DISCARDABLE 
BEGIN 

AFX_IDS_SCRESTORE 
AFX_IDS_SCTASKLIST 

END 



"Change the window size" 
"Change the window position" 

"Reduce the window to an icon" 
"Enlarge the window to full size" 
"Switch to the next document window" 
"Switch to the previous document 

"Close the active window and prompts to 



"Restore the window to normal size" 
"Activate-Task List" 



STRINGTABLE DISCARDABLE 
BEGIN 

IDD_DATA_NEW 
new record" 

ID_DATA_NEW 

edit. " 

ID__DATA_EDIT 
record. " 

ID_REC_TIRST 

file." 

ID_REC_NEXT 
ID_REC_PREV 

file. " 



"Starts data entry process for 

"Create new record at end of file and 

"Edit the cturrently selected 

"Go to the first record in the 

"Go to the next record in the file." 
"Go to the previous record in the 
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ID_REC_LAST "Go to the last record in the file." 

ID_BID_NET_FILE "Build file of neural data from 

currently opened database." 

ID_EDIT_MODE "Print the full data form when 

checked or results only when unchecked." 

ID_CLR_SUBFIELDS "Clear subfields when item cleared." 

ID_REC_GOTO "Go to a specific record number or 

specific ID . " 
END 



#ifndef APSTUDIO INVOKED 

////////////////7//////// ///////////////////////////////////// ///////////// 
/////////////////////////////////////////////////////////////////////////// 
// 

// Generated from the TEXTINCLUDE 3 resource. 
// 

#include "res\PTDinp . rc2 " // non-App Studio edited resources 

#include "afxres.rc" // Standard components 

#include "afxprint . rc" // printing/print preview resources 
#include "afxdb.rc" // Database resources 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
#endif // not APSTUDIO_INVOKED 



# Microsoft Visual C++ generated build script - Do not modify 

PROJ = PTDINP 
DEBUG = 0 
PROGTYPE = 0 
CALLER = 
ARGS = 
DLLS = 

D_RCDEFINES = /d_DEBUG 
R_RCDEFINES = /dnDEBUG 
ORIGIN = MSVC 
ORIGIN_VER = 1.00 

PROJPATH = C:\DDD\AD97-1\PTDINP\ 
USEMFC = 0 
CC = cl 
CPP = cl 
CXX = cl 

CCREATEPCHFIAG = 

CPPCREATEPCHFLAG = /YcSTDAFX.H 
CUSEPCHFLAG = 

CPPUSEPCHFLAG = /YuSTDAFX.H 

FIRSTC = 

FIRSTCPP = STDAFX.CPP 

RC — r c 

CFLAGS_D = WEXE = nologo /G2 /W3 /V /AL /Od /D "__AFXDLL" /D "_DEBUG" /FR 

/GA /GEf 

CFLAGS_R = WEXE = /nologo /Gs /G3 /W3 /AL /Ol /D "RDEBUG" /D_AFXDLL" /FR 
/GA /GEf 

LFLAGS_D = WEXE = NOLOGO /NOD /PACKC: 61440 /STACK: 10240 /ALIGN: 16 /ONERROR : 
NOEXE/ CO 

LIBS_D_WRXE = mfc250d oldnames libw llibcew mfcd250d commdlg.lib shell. lib, 
LIBS_R__WEXE = mfc250 oldnames libw llibcew mfcd250 odbc commdlg.lib 
shell. lib 
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RCFLAGS = /nologo /z 
RCFLAGS = /nologo /t /k 
RUNFIiAGS = 

DEFFILE = PTDINP.DEF 
OBJS_EXT = 

LIBS_EXT = EVA.LNET_LIB TKSDLL . LIB 

!if "$ (DEBUG) " = = "1" 
CFLAGS = $ (CFLAGS_D_WEXE) 
LFLAGS = $ (LFLAGS_D_WEXE) 
LIBS = $ (LIBS_D_WIXE) 
MAPFILE = nul 

RCDEFINES = $ (D_RCDEFINES) 
! else 

CFLAGS = $ (CFLAGS_R_WEXE) 
LFLAGS = $ (LFLAGS_R_WEXE) 
LIBS = $ (LIBS_R_WEXE) 
MAPFILE = nul 
RCDEFINES = $ (R_RCDE FINES) 
! endif 

lif (if exist MSVC.BND del MSVC.BND] 



i.J ! endif 

SBRS = STDAFX.SBR \ 

ly PTDINP.SBR \ 



MAINFRM.SBR \ 
. PTDIDOC.SBR \ 

In PTDIVW.SBR \ 

CO PTDDLGl.SBR \ 

55 PTDGOTO . SBR 

r7 EVA LNET DEP = 

%xk TKSDLL_DEP = 

PTDINP_RCDEP = c : \ddd\ad97 - l\ptdinp\res\ptdinp . ico 

lir. c : \ddd\ad97-l\ptdinp\res\ptdinp.rc2 

lU STDAFX_DEP = c:\ddd\ad97-l\ptdinp\stdafx.h 



PTDINP_DEP = c:\ddd\ad97-l\ptdinp\stdafx.h 
c : 7ddd\ad97-l\ptdinp\ptdinp.h 
c : \ddd\ad97-l\ptdinp\ptdidoc .h 
c : \ddd\ad97-l\ptdinp\mainf rm.h 
c : \ddd\ad97-l\ptdinp\ptdivw.h 

MAINFM_EP = c:\ddd\ad97-l\ptdinp\stdafx.h 
c : \3dd\ad97-l\ptdinp\ptdinp .h 
c : \ddd\ad97 - l\ptdinp\ptdidoc . h 
c : \ddd\Ad97-l\ptdinp\mainf rm.h 

PTDIDOC_EP - c:\ddd\ad97-l\ptdinp\stdafx.h 
c : \3dd\ad97-l\ptdinp\ptdinp , h 
c : \ddd\ad97 - l\ptdinp\ptdidoc . h 
c : \ddd\ad97-l\ptdinp\aa_nets .h 

PTDIVW_EP - c:\ddd\ad97-l\ptdinp\stdafx.h 
c : 7ddd\ad97-l\ptdinp\ptdinp .h \ 
c : \ddd\ad97-l\ptdinp\ptdidoc .h 
c:\ddd\ad97-l\ptdinp\ptdivw.h \ 
c : \ddd\ad97-l\ptdinp\ptddlgl .h 

PTDDLG1_EP = c:\ddd\ad97-l\ptdinp\stdafx.h 
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c:\add\ad97-l\ptdinp\ptdinp.h 
c : \ddd\ad97-l\ptdinp\ptdidoc .h 
c : \ddd\ad97-l\ptdinp\ptddlgl .h 

all: $(PROJ).EXE $(PRCJ).BSC 

PTDINP . RES : PTDINP . RC $ { PTDINP_RCDEP) 

$(RC) $(RCFLAGS) $ (RCDEFINES) -r PTDINP. RC 

STDAFX.OBJ: STDAFX . CPP $ (STDAFX_DEP) 

$ (CPP) $ (CFLAGS) $ (CPPCREATEPCHFLiAG) /c STDAFX. CPP 

PTDINP. OBJ: PTDINP. CPP $ ( PTDINP_DEP) 

$(CPP) $ (CFLAGS) $ (CPPUSEPCHFLAG) /c PTDINP . CPP 

MAINFRM . OBJ : MAINFRM . CPP $ (iyiAINFRM_DEP) 

$(CPP) $ (CFLAGS) $ (CPPUSEPCHFLAG) /c MAINFRM. CPP 

PTDIDOC . OBJ : PTDIDOC . CPP $ ( PTDIDOC_DEP) 

$(CPP) $ (CFLAGS) $ (CPPUSEPCHFLAG) /c PTDIDOC. CPP 

PTDIVW.OBJ: PTDIVW.CPP $ (PTDIVW_DEP) 

$(CPP) $ (CFLAGS) $ (CPPUSEPCHFLAG) /c PTDIVW.CPP 



LU PTDDLGl.OBJ: PTDDLGI.CPP $ (PTDDLG1_DEP) 

\^ $(CPP) $ (CFLAGS) $ (CPPUSEPCHFLAG) /c PTDDLGI.CPP 

PTDGOTO . OBJ : PTDGOTO .CPP $ ( PTDGOTO_DEP ) 

$(CPP) $ (CFLAGS) $ (CPPUSEPCHFLAG) /c PTDGOTO . CPP 

$ ( PROJ) . EXE : : PTDINP . RES 

$ (PROJ) .EXZ: : STDAFX.OBJ PTDINP. OB J MAINFRM . OB J PTDIDOC. OB J 

PTDIVW.OBJ PTDDLGl.OBJ 

ry PTDGOTO. OB J $(OBJS_XT) $ (DEFFILE) 

echo >KUL ®«$(PRO' j) .CRF 
STDAFX.OBJ + 
PTDINP. OB J + 
MAINFM.OBJ + 
PTDIDOC. OB J + 
PTDIVW.OBJ + 
PTDDLGl.OBJ + 
PTDGOTO. OB J + 
$ (OBJS_EXT) 
$ (PROJ) .EXE 
$ (MAPFILE) 
c : \msvc\lib\+ 
c : \msvc\mf c\lib\+ 
EVALNET . LIB+ 
TKSDLL.LIB+ 
$ (LIBS) 
$ (DEFFILE) ; 
<< 

link $(LFLAGS) ®$ (PROJ) .CRF 
$(RC) $(RESFLAGS) PTDINP. RES $® 
©copy $(PROJ) ,CRF MSVC.BND 

$ ( PROJ) . EXE : : PTDINP . RES 

if not exist MSVC.BND $ (RC) $(RESFLAGS) PTDINP. RES $® 
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run: $ (PRO J) .EXE 

$(PROJ) $(RUNFLAGS) 

$(PROJ) .BSC: $(SBRS) 

bscmake ®<< 
/o$@ $(SBRS) 
<< 

// PTDidoc.'h : interface of the CPTDinpDoc class 

// 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
#ifndef _PTDINPDOC_H_ 
#define _PTDINPDOC_H_ 

#define REC_LENGTH 33 0L 

class CPTDinpDoc : public CDocument 

protected: // create from serialization only 
CPTDinpDoco; 

DECIiARE_DYNCREATE (CPTDinpDoc) 

//Attributes public: 
public : 

est ring m_IjAB_ID; 
est ring m_NAME_L; 
CString m,_NAME_F; 
CString m_NAME_MI ; 

CString m , _DATE_OF_DATA_ENTRY ; //time 

double m_PATIENT_AGE; 

CString m_DATE__OF_BIRTH; 

CString m_ETHNIC_ORIGIN_WHITE ; 

CString m_ETHNIC_ORIGIN_BLACK; 

CString m_ETHNIC_ORIGIN_ASIAN; 

CString m_ETHNIC_ORIGIN_HISPANIC; 

CString m_ETHNIC_ORIGIN_NATIVE_AMERICAN; 

CString m_ETHNIC_ORIGIN_OTHER; 

CString m_MARITAL_STATUS_S INGLE ; 

CString m_MARITAL_STATUS_MARRIED; 

CString m_MARITAL_STATUS_DIVORCED ; 

CString m_MARITAL_STATUS_WIDOWED; 

CString m_MARITAL_STATUS_LWP ; 

CString m_MARITAL_STATUS_OTHER; 

CString m_ACOG_SYNPTOMS ; 

CString m_PATIENT_COMPLAINT_l ; 

CString m_PATIENT_C0MPLAINT_l__l_3 ; 

CString m_PATIENT_COMPIiAINT_l_10_12 ; 

CString Tn_PATIENT_COMPLAINT_l_4_6 / 

CString m_PATIENT_COMPLAINT_l_7_9 ; 

CString Tn_PATIENT_C0MPLAINT_l_GTT12 ; 

Cstring_rr_PATIENT_COMPLAINT_l_LTl; 

Cstring_m_VAGINAL_BLEEDING ; 
CString m_VAGINAL__BLEEDING_TRACE ; 
CString m_VAGINAL_BLEEDING_MEDIUM; 
CString m_VAGINAL_BLEEDING_GROSS ; 
CString m_PATIENT_COMPIAINT_6 ; 
CString m_PATIENT_C0MPLAINT__3 ; 
CString m_PATIENT_C0MPLAINT_2 ; 
CString m_PATIENT_COMPLAINT_5 ; 
CString m_PATIENT_COMPIiAINT__4 ; 
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in 



ru 



CString 
CString 
CString 
CString 
CString 
CString 
Cstring 
CString 
CString 
CString 
CString 
CString 
CString 
Cstring 
CString 
CString 
CString 
CString 
CString 
CString 
CString 
CString 
CString 
CString 
CString 
CString 
CString 
CString 
CString 
CString 
CString 
CString 
CString 
CString 
CString 
CString 
CString 
CString 
CString 
CString 
CString 
CString 
CString 



m_EGA__BY_SONO ; 
m._EGA_BY_LMP; 
m EGA AT SAMPLING; 





0 


COMP, 




m_ 


"1" 


COMP, 




m_ 


'2 


COMP, 




m_ 


"3" 


COMP 




m_ 


■4" 


COMP 




m_ 


■5' 


COMP 




m_ 


"6" 


COMP, 




Tn_ 


'2 


COMP 


1 


Tn_ 


'2 


COMP" 


"2 


m 


'2 


COMP 


~3 



r_GRAVITY/ 
r_PARITY; 
r_ABORTIONS ; 
m__MULTIPLE_GESTATION / 
r_MULTIPLE_GESTATION_TWINS ; 
m_MULTIPLE_GESTATION_TRIPLETS ; 
m_MULTIPLE_GESTATION_QUADS ; 
m_UTCERV_ABNORMALITY ; 
r_CERVICT_L_CERCIiAGE ; 
m_GESTATIONAL_DIABETES ; 
m__HYPERTENSIVE_DISORDERS ; 
m_DILITATION_LTl ; 
m_DILITATION_l ; 
m_DILITATION_l_2 ; 
m_DILITATI0N_2 ; 
m__DILITATION_2_3 ; 
m_DILITATION_3 ; 
m_DILITATION_GT3 ; 
m__D I L I T AT I ON_UNKNO WN ; 
m_CERVICAL_CONSISTANCY_FIRM ; 
m_CERVI CAL_CONS I STANCY_MOD ; 
m__CERVICAL_CONSISTANCY_SOFT ; 
Tn_ANTIBIOTICS ; 
m_CORTICOSTEROIDS ; 
m_TOYOLYTICS; 
m_INSULIN; 

m_ANTIHYPERTENSIVES ; 
tn_MEDICATIONS_NONE ; 
Tn_MEDICATIONS_UNKNOWN ; 
r FFN RESULT; 



char Rec tREC_LENGTH + 16]; 

char fid [256] ; 

char PathName [12 8] ; 

long CurRecord; 

long NumRecords; 

int GotoMode ; 

CString IDStr; 

char tstr[2561; 

Ctime tim; 



char Net Name [12 8] ; 
char NetRec [1024] ; 
double m_NetPosl; 
double M_NetNegl; 
double m__NetVall; 
double m_7NetPos2 ; 
double m_7NetNeg2; 
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double m__NetVal2; 
double m_NetPos3; 
double m_NetNeg3; 
double m_NetVal3; 

// Operations 
public : 

void get_rec ( char* pRec) ; 

char* get - fid (char* pRec, int ofs, int len) ; 
CTime&: gei time f Id (char* pRec, int of s, int len) 
void put_rec (char* pRec) ; 

void put_fld (char* pRec, CString& dat, int of s, int len) 

void put_dbl_fld (char* pRec, double dat, int of s, int len) ; 

void put_net_fld (char* pRec, double dat, int of s, int len) ; 

void put_time_f Id (char* pRec, CTime& dat, int of s, int len) 

void InitializeRec (void) ; void LoadNets (void) ; 

void FreeNets (void) ; 

void RunNets (long n) ; 

char* time2str( const CTime& tm) ; 

CTime& str2time( CString& str) ; 

void get-file ( void) ; 

// Implementation 
public : 

virtual -CPTDinpDoc ( ) ; 

virtual void Serialize (CArchive& ar) ; 

i/o 

#ifdef __DEBUG 

virtual void Assert Valid ( ) const; 
virtual void Dump (CDumpContext& dc) const; 

#endif 

protected : 

virtual BOOL OnNewDocument ( ) ;. 
// Generated message map functions \ 
protected: ' 
// { { AFX_MSG (CPTDinpDoc) 
af x__msg__void OnRecFirst ( ) ; 
af x_msg_void OnRecLast ( ) ; 
af x_msg_void_OnRecNext ( ) ; 
afx_msg_void OnRecPrev .^( ) ; ^ , 
afx_msg_void OnFileOpen .( ) 
afx_msg_void OnBldNetFile'' J, i 
afx_msg_void OnRecGoto ( 



/ / overridden for document 



•J- ■ 



}; 



a f x_msg_vo i d OnFi 1 eMruF i lei (\ ). ; 
afx_msg_void OnFilemruFile2 ( / )' ; 
afx_msg_void OnFileMruFileS ( ) ; 
afx msg_void OnFilemruFile4 ( ) ; 
//}yAFX_iyiSG 
DECLARE MESSAGE MAP ( ) 



#endif // PTDINPDOC_H_ 

/////////////////////////////////////////////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////// 
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